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Este libro contiene más de 50 
programas principales y variacio- 
nes. Se puede utilizar en Spec- 
trum, BBC, MSX, VIC20 y Dra- 
gón. Los programas incluyen jue- 
gos, problemas, rompecabezas 
lógicos y pruebas de habilidad. 
Los puedes usar individualmente 
o como modelos para escribir tus 
propios programas. Ninguno de 
ellos necesita una memoria de 
más de 16K. 

Los programas principales es- 
tán pensados para que funcionen 
en cinco aparatos diferentes. Por 
eso sólo tienen líneas comunes a 
todos ellos. Para que funcionen 
los programas sólo necesitas jun- 
tar los programas principales con 
las subrutinas adecuadas. 

Cada ordenador tiene su pro- 
pio conjunto de subrutinas que 
puedes encontrar en la Biblioteca 
de Subrutinas. Son bastante cor- 
tas. Una vez que hayas tecleado y 
almacenado las subrutinas ade- 
cuadas, éstas adaptarán todos los 
programas para tu propio orde- 
nador. 

Si utilizas un magnetófono, te 
ahorrarás mucho tiempo; no ha- 
brás de teclear una y otra vez las 
subrutinas. 


1) Teclea todas las subrutinas y 
programas exactamente como es- 
tán listados. Asegúrate de que 


has copiado todos los números 
de las líneas, palabras, símbolos, 
puntuación y espacios siempre 
tal y como aparecen en los lista- 
dos que hay en este libro. Este 
aspecto resulta absolutamente 
fundamental. 

2) Para el Spectrum no teclees 
las instrucciones del ordenador 
letra por letra; utiliza las teclas 
que introducen de una vez una 
palabra entera. 

3) Asegúrate de que tecleas EN- 
TER o RETURN o NEWLINE 
al final de cada línea completa 
para almacenarla en la memoria 
del ordenador antes de comenzar 
con la línea siguiente del progra- 
ma. 

4) Utiliza mayúsculas en todos 
los programas del mismo modo 
que aparecen en el libro. Encon- 
trarás la explicación para cam- 
biar a mayúsculas en el manual 
de tu ordenador. 

5) El listado de los programas 
distingue claramente el número 
cero de la letra O. Como la letra 
O no se utiliza nunca como va- 
riable, es de suponer que cuan- 
do está sola es un cero (en mu- 
chos ordenadores, cero se escri- 
be O). 

6) Cuando teclees un progra- 
ma, pon una regla debajo de la 
línea que estás escribiendo para 
no equivocarte y saltarte alguna 
frase. 

7) Para que sepas cuantos espa- 
cios tienes que dejar en las sec- 
ciones del listado entre comillas, 
hemos utilizado símbolos de es- 
pacios. Por ejemplo: 110 PRINT 
BOMBARDERO». Esto 
quiere decir que tienes que te- 
clear seis espacios (------ ) antes de 
la palabra BOMBARDERO. No 
teclees nada cuando encuentres 
estos simbolos. Están sólo para 
que sepas cuántos espacios tienes 
que dejar antes de teclear una 
palabra o símbolo. 


-_ 


1) Cuando hayas tecleado una 
subrutina completa con el pro- 
grama principal, teclea RUN pa- 
ra poner el programa en marcha. 
Al final de cada prueba de pro- 
grama, aparecerá en la pantalla 
la palabra STOP. Teclea RUN 
para que el programa empiece. 

2) Cuando pruebes el progra- 
ma por primera vez podrás en- 
contrar las faltas. El ordenador 
se parará automáticamente si 
hay algún error en el programa. 
Pero no podrás probar las subru- 
tinas a menos que estén en un 
programa principal. Tu primer 
programa, pues, será también 
una prueba de las subrutinas. 


Cuando hayas acabado con un 
programa, y lo hayas guardado 
para uso futuro, puedes borrarlo 
de la memoria. Busca las instruc- 
ciones para ello en el capítulo 
Cinco Micros. 


1) La mejor manera de trabajar 
con los programas de este libro 
es, para empezar, teclear y guar- 
dar las subrutinas necesarias, 
Una vez almacenadas en una cas- 
sette, las puedes usar con cada 
programa nuevo que pruebes. 
2) Cuando empieces un progra- 
ma nuevo (una vez almacenadas 
las subrutinas para tu ordenador) 
sigue las instrucciones: 
(a) Carga las subrutinas 
(b) Teclea el programa nuevo 
(c) Cuando acabes, almacena 
el programa y la subrutina 
juntos en una cassette 
3) Siempre es buena idea almace- 
nar un programa para uso futuro. 
Usa los nombres de los progra- 


mas que hay en las instrucciones 
REM —<estos nombres sirven pa- 
ra todos los ordenadores—. Para 
encontrar las instrucciones de có- 
mo almacenar un programa lee 
el capítulo Cinco micros. 

4) Puedes hacerte con una bi- 
blioteca de programas. Indica 
con claridad el nombre del pro- 
grama y su posición en la cinta. 


1) Sólo puedes cargar un pro- 
grama o una subrutina con el 
nombre bajo el cual lo has alma- 
cenado; busca en el libro el del 
programa principal si no. re- 
cuerdas el nombre. 

2) No olvides que todos los 
nombres están en mayúsculas. 
Cárgalos del mismo modo, 

3) Si has tenido que corregir 
una subrutina o un programa, no 
te olvides de cambiar también la 
versión almacenada. 


1) Algunos programas princi- 
pales tienen posibilidades de va- 
riación. Éstas pueden hacer que 
el programa vaya más rápido o 
añadir un nuevo sistema de pun- 
tuación. Tú también puedes in- 
ventarte algunas variaciones. Es 
más fácil empezar por las líneas 
de mensajes. Aquí puedes añadir 
lo que quieras con tal de que 
tenga sentido cuando hagas la 
prueba. 

2) Los programas de este libro 
son sencillos, Tal vez no funcio- 
nen si no sigues las instrucciones. 
Puedes intentar mejorar algunos, 
aunque necesitarás extender mu- 
cho los listados. 


1) Si un programa se para 
cuando intentas ejecutarlo, vuel- 


ve al listado tecleando LIST. Co- 
mo los ordenadores BBC funcio- 
nan con Modo 5 para todos los 
programas, es preferible que 
vuelvas a un modo más fácil de 
leer. Lee el capítulo Cinco Mi- 
cros para enterarte de las instruc- 
ciones para regresar al modo de 
texto normal, 

2) Primero comprueba que no 
te has olvidado de ninguna línea 
en el programa, así como que 
todas las líneas tienen el número 
correcto. 

3) Comprueba que no has es- 
crito dos líneas en una. 

4) Empezando por el principio, 
comprueba línea por línea que la 
puntuación es correcta —no con- 
fundas (:) y (5), el cero y la letra 
O— y que las variables y los 
espacios son correctos. 

5) Como no puedes revisar las 
subrutinas hasta que ejecutes el 
programa, es probable que allí 
esté la falta, 


Cuando hayas conectado el Spec- 
trum, la televisión o monitor y el 
magnetófono, lo primero que tie- 
nes que hacer para usar los pro- 
gramas del libro es teclear y car- 
gar la biblioteca de subrutinas. 

Cada vez que metas progra- 
mas o subrutinas en el Spectrum 
(o cuando almacenas o cargas 
programas de este libro) no olvi- 
des usar sólo mayúsculas (exac- 
tamente como en los listados). 
Pulsa las teclas CAPS SHIFT y 
CAPS LOCK para que la máqui- 


na funcione del modo adecuado. 


Cuando hayas tecleado todas las 
subrutinas comprueba que el lis- 
tado de la pantalla es exacto al 
del libro. Si no hay ningún error 
puedes almacenar las subrutinas 
en la casette de la manera si- 
guiente: 
1) Teclea 
TINA». 
2) Enciende el magnetófono 
para que empiece a grabar 
al principio de una cinta 
virgen. Comprueba que só- 
lo los enchufes MIC del 
ordenador y del magnetó- 
fono están conectados. 
Teclea ENTER. 
Cuando el mensaje Y OK” 
aparezca en la pantalla, pa- 
ra el magnetófono. Ahora 
tienes la subrutina almace- 
nada en la cinta. Para com- 
probarlo, rebobina. Conec- 
ta los cables EAR y teclea 
VERIFY  «SUBRUTINA». 
Pasa la cinta y teclea EN- 
TER. Si las palabras “PRO- 
GRAM SUBRUTINA? y el 
mensaje Y OK” aparecen 
en la pantalla, las subruti- 


SAVE  «SUBRU- 


y 
—_ 
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nas están almacenadas en 
la cinta de la forma ade- 
cuada. 

El procedimiento para almace- 
nar un programa completo (in- 
cluyendo las subrutinas) es exac- 
tamente el mismo, sólo que debe- 
rás teclear el nombre del progra- 
ma (que encontrarás en la ins- 
trucción REM del listado) junto 
con las instrucciones SAVE, 


Cuando empieces a cargar uno 
de los programas principales, la 
secuencia es un poco distinta, ya 
que primero tienes que cargar 
las subrutinas en el ordenador 
antes de ejecutar cualquier ins- 
trucción. 

Rebobina hasta el principio la 
cinta de subrutinas. Comprueba 
que sólo están conectados los 
cables EAR. Sube el volumen a 
3/4 del máximo y luego: 

1) Teclea LOAD «SUBRUTI- 

NA». 


1 y ap 


2) Pon en marcha el magnetó- 
fono. 

3) Pulsa ENTER. 

4) Cuando la frase «W OK, (: 
1» aparezca en la pantalla, 
el ordenador estará carga- 
do. Ahora podrás teclear el 
resto del programa. 

Si tienes algún problema al 
almacenar o cargar subrutinas o 
programas, consulta el manual 
del ordenador. 

Cuando hayas acabado con un 
programa y lo hayas almacena- 
do, bastará teclear NEW para 
borrar el programa de la memo- 
ria. Ahora puedes probar un nue- 
vo programa. 


Cuando hayas conectado tu BBC 
a un magnetófono y a la televi- 
sión o al monitor, antes de empe- 
zar tendrás que teclear y cargar la 
biblioteca de subrutinas adecua- 
da. Estas subrutinas funcionan 
exactamente igual de bien para 
las versiones 1.2 y 0.1 del sistema 
Operativo. 

Cuando cargues programas O 
subrutinas de este libro, ten cui- 
dado de usar sólo mayúsculas 
—como en los listados— apre- 
tando la tecla CAPS LOCK, Esta 
instrucción es muy importante ya 
que para el BBC, “A” y son 


dos cosas muy diferentes. 


Una vez que hayas tecleado todas 
las subrutinas, comprueba que 
los listados de la pantalla y del 
libro son iguales. Si no encuen- 
tras ningún error, almacena las 
subrutinas en una cinta de la 
manera siguiente: 

1) Teclea SAVE «SUBRUTI- 
NA». En la pantalla apare- 
cerá “Record then return”. 

2) Enciende el magnetófono 
para que grabe desde el 
principio de la cinta. 

3) Aprieta RETURN. 

4) Mientras está almacenan- 
do, el nombre del progra- 
ma y varios números apa- 
recerán en la pantalla, 
Cuando aparezca el cursor, 
para la cinta. Las subruti- 
nas ya están almacenadas. 
Para comprobar que no 
hay ningún error, rebobina 
la cinta y teclea *CAT. pa- 
sa la cinta para que el BBC 
pueda verificar la informa- 
ción grabada. Si no hay 


errores, imprimirá “Subru- 
tina” y el anterior número. 
El procedimiento para almace- 
nar un programa completo, in- 
cluidas todas las subrutinas, es 
exactamente el mismo, sólo que 
tienes que teclear el nombre del 
programa (del REM) junto con 
las instrucciones SAVE. 


El. procedimiento es distinto 
cuando quieres meter un progra- 
ma principal. Aquí tienes que 
empezar cargando las subrutinas 
antes de cualquier línea. 
Rebobina la cinta. Sube el vo- 
lumen a 3/4 del máximo y luego: 
1) Teclea LOAD  «SUBRU- 
TINA». 
2) Aprieta RETURN, 
3) El mensaje “Searching 
(buscando) aparece en la 
pantalla. Enciende el mag- 
netófono. Cuando el orde- 
nador encuentra las subru- 


tinas escribe en la pantalla 


“Loading” (cargando). 

4) Grado hayas cargado las 
subrutinas el cursor apare- 
ce de nuevo, Ahora carga 
el resto del programa. 

Si tienes algún problema al 
almacenar o cargar subrutinas, o 
programas, consulta el manual 
del ordenador. Cuando hayas 
acabado con el programa alma- 
cena una copia en una cinta vir- 
gen. Entonces puedes borrar el 
programa de la memoria teclean- 
do NEW y meter otro nuevo. 

Los programas de este libro 
harán que el BBC funcione en 
modo 5 —con texto en tamaño 
grande para que se pueda leer 
fácilmente en una pantalla de 
televisión—, Sin embargo, si te- 
cleas LIST para comprobar las 
líneas del programa, te resultará 
difícil leer el texto en modo 5. 
Para volver a un texto de tamaño 
normal, introduce MODE 7, te- 
clea LIST, y aparecerá de nuevo. 


MSX 


Estas rutinas sirven para el 
SONY Hit Bit 75P y 55P (en la 
fotografía) y, posiblemente con 
algunas ligeras modificaciones, 
para otras marcas de ordenado- 
res que sigan la norma MSX. 

Cuando hayas conectado el 
MSX, la televisión o monitor y el 
magnetófono, lo primero que tie- 
nes que hacer es teclear y cargar 
la biblioteca de subrutinas ade- 
cuada para tu ordenador. Sin 
ellas, los programas no pueden 
funcionar. 

Cada vez que metas progra- 
mas de este libro, ten cuidado de 
usar sólo mayúsculas —como en 
los listados— pulsando la tecla 
CAP. 


Tienes que acceder primero al 
Basic. Para ello, al encender pul- 
sa cuatro veces la tecla Y, y 
luego RETURN. 

Cuando hayas tecleado todas 
las subrutinas comprueba que el 
listado de la pantalla es exacto al 
del libro. Si no hay error, puedes 
almacenarlas en una cinta, 

1) Teclea SAVE  «SUBRU- 

TINA». 

2) Enciende el magnetófono 
para que empiece a grabar 
al principio de una cinta 
virgen. Comprueba que só- 
lo los enchufes MIC del 
ordenador y del magnetó- 
fono están conectados. 

3) Teclea ENTER. 

4) Cuando el mensaje OK 
aparezca en la pantalla, pa- 
ra el magnetófono. Com- 
prueba que las subrutinas 
están bien almacenadas re- 


bobinando la cinta. Teclea 
“CLOAD ? «SUBRUTT- 


NA»”, Enciende el magne- 
tófono. Si todo está bien, 
aparecerá Found:SUBRUT”, 
y luego “OK”. 

El procedimiento para almace- 
nar un programa completo (in- 
cluyendo las subrutinas) es exac- 
tamente el mismo, sólo que debe- 
rás teclear el nombre del progra- 
ma (que encontrarás en las ins- 
trucciones REM del listado) jun- 
to con las instrucciones SAVE. 


Cuando empieces a cargar uno 
de los programas principales, la 
secuencia será un poco distinta, 
ya que primero tienes que cargar 
las subrutinas en el ordenador, 
antes de ejecutar cualquier ins- 
trucción. 

Rebobina hasta el principio la 
cinta de subrutinas. Comprue- 
ba que sólo están conectados los 
cables EAR. Sube el volumen a 
3/4 del máximo y luego: 


CINCO MICROS 


1) Teclea CLOAD «SUBRU- 
TINA». 

2) Enciende el magnetófono. 
Cuando el ordenador en- 
cuentre el lugar adecuado, 
imprimirá “Found: SU- 
BRUT. 

4) Una vez cargado, aparecerá 
el mensaje “OK” en la pan- 
talla. Ahora podrás teclear 
el resto del programa. 

Si tienes algún problema al 
almacenar o cargar subrutinas o 
programas, consulta el manual 
del ordenador. 

Cuando hayas acabado con un 
programa y lo hayas almacena- 
do, bastará teclear NEW para 
borrar el programa de la memo- 
ria. Ahora puedes probar un nue- 
vo programa. 


Cuando hayas conectado el or- 
denador VIC20 al televisor o mo- 
nitor por un lado y al magnetó- 
fono por otro, tendrás que cargar 
la biblioteca de subrutinas antes 
de empezar con cualquier pro- 
grama, ya que sin ellas el progra- 
ma no puede funcionar. 


Cuando hayas tecleado todas las 
subrutinas compara el listado de 
la pantalla con el del libro. Si no 
encuentras ningún error, almace- 
na las subrutinas en una cinta 
virgen de la manera siguiente: 

1) Teclea SAVE «SUBRUTI- 
NA». 

2) El mensaje “Press Record 
and Play on Tape” aparece- 
rá en la pantalla. 

3) Enciende el magnetófono 
con la cinta rebobinada al 
principio, 

4) El ordenador imprimirá el 
mensaje “OK Saving” cuan- 
do empiece a almacenar. 

5) El mensaje “OK Ready” 
aparecerá en la pantalla 
cuando el ordenador haya 
acabado de almacenar. Pa- 
ra el magnetófono. Para 
comprobar que las subruti- 
nas están bien almacena- 
das, rebobina la cinta hasta 
el principio. 

6) Teclea VERIFY «SUBRU- 
TINA». Aparecerá el men- 
saje Play on tape”. Encien- 
de el magnetófono. Si el 
ordenador encuentra un 
error, aparece el mensaje 
Verify Error” (Comprueba 
error). Si no, el mensaje 
“OK Ready” te informará 
de que no hay ningún 
error, 


El procedimiento para almace- 
nar un programa completo (in- 
cluyendo las subrutinas) es muy 
parecido. La única diferencia es 
que tienes que teclear el nombre 
del programa (de la instrucción 
REM en la primera línea del 
listado) entre las comillas. 


Cuando empieces a teclear los 
programas principales tendrás 
que proceder de otra manera. 
Tendrás que cargar las subruti- 
nas antes que las otras líneas. 

Reboboina la cinta de subruti- 

nas y luego haz lo siguiente: 

1) Teclea LOAD «SUBRUTI- 
NA»; aparecerá el mensaje 
“Press Play on Tape”. 

2) Enciende el magnetófono. 
El ordenador imprimirá el 


mensaje “OK Searching 
(buscando), y luego 
Found” (Encontrado) y 


“Loading” (Cargando). 


3) Cuando se hayan termina- 
do de cargar las subrutinas 
el ordenador imprimirá el 
mensaje “Ready”. 

Si tienes cualquier dificultad 
para almacenar o cargar un pro- 
grama, consulta el manual de 
instrucciones del VIC20, 

Cuando hayas acabado con el 
programa, almacena una copia 
en una cinta virgen. Entonces 
puedes borrar el programa de la 
memoria tecleando NEW. Ya 
puedes empezar un nuevo pro- 
grama. 


Cuando hayas conectado el orde- 
nador al magnetófono y al televi- 
sor o al monitor, lo primero que 
tienes que hacer antes de cargar 
un programa es teclear la biblio- 
teca de subrutinas adecuada para 
el ordenador DRAGON. Sin és- 
tas, los programas no pueden 
funcionar. 

Cada vez que teclees un listado 
no te olvides de hacerlo siempre 
en mayúsculas —+exactamente 
como aparecen en este libro—, 
Sin embargo, como normalmente 
el DRAGON sólo usa mayúscu- 
las, no tienes que apretar la tecla 


SHIFT para obtenerlas. 


Cuando hayas tecleado todas las 
subrutinas, comprueba que los 
listados de la pantalla y del libro 
son iguales. Si no hay errores, 
almacena las subrutinas en una 
cinta virgen de esta manera: 

1) Aprieta las teclas PLAY y 
RECORD del magnetófono 
al mismo tiempo. 

2) Teclea SAVE «SUBRUTA>» 
(el nombre del programa 
no puede tener más de 
ocho caracteres). Una vez 
tecleado, la cinta empezará 
a grabar el programa. 

3) Una vez almacenado el 
programa, el mensaje OK 
aparecerá en la pantalla. 

El procedimiento para almace- 

nar un programa completo (in- 
cluyendo el listado principal y las 
subrutinas) es muy parecido. La 
única diferencia es el nombre del 
programa. Usa los nombres de 
las instrucciones REM en la pri- 
mera línea del listado principal y 
las mismas instrucciones 


CSAVE., 


El procedimiento para cargar los 
programas principales es un po- 
co diferente. Primero tienes que 
cargar las subrutinas antes que 
cualquier línea del programa. 

Rebobina la cinta de las subru- 

tinas. Coloca el control del volu- 
men al nivel necesario y luego 
haz lo siguiente: 

1) Aprieta la tecla PLAY del 
magnetófono. 

2) Teclea e introduce CLOAD 
«SUBRUTA». 

3) El magnetófono se pondrá 
en marcha y la letra “S” 
aparecerá en la esquina su- 
perior izquierda de la pan- 
talla mientras el ordenador 
busca el programa. 

4) La “S” se cambia a “FSU- 
BRUTA? cuando el ordena- 
dor encuentra el programa 
y se pone a cargarlo. Cuan- 
do aparezca el mensaje OK 
el programa estará carga- 


ANO 


do. A partir de ese momen- 
to podrás introducir el res- 
to del programa. 

Si tienes cualquier problema 
para almacenar o cargar un pro- 
grama, consulta el manual de 
instrucciones del Dragón. 

Cuando hayas acabado con el 
programa almacena una copia en 
una cinta virgen. Entonces pue- 
des borrar el programa de la 
memoria tecleando NEW. Ya 
puedes empezar un nuevo pro- 
grama. 


BIBLIOTECA DE SUBRUTINAS 


Lo primero que tienes que hacer 
cuando pruebes los programas de 
este libro es consultar la bibliote- 
ca de subrutinas adecuada para 
tu ordenador. Los programas 
principales sólo pueden funcio- 
nar con estas subrutinas. Pero 
ten cuidado cuando las teclees, 
ya que tendrás que usarlas a 
menudo y los errores sólo apare- 
cerán cuando intentes ejecutar tu 
primer programa. Comprueba 


que los listados de la pantalla y 
del libro son exactamente iguales 
antes de grabar las subrutinas en 
una Cassette. 

Cada línea o grupo de líneas 
que empieza con un número del 


orden de mil y que acaba con la 
instrucción RETURN es una su- 
brutina completa. Se necesita 
una biblioteca entera de unas 
20 subrutinas para ejecutar los 
programas principales de este 
libro. 

Es mucho más útil y sencillo 
almacenar las subrutinas en una 
cinta distinta de la de los progra- 
mas completos. Necesitará car- 
garlas a menudo cuando trabajes 
con este libro, y es mejor no 
mezclarlas con los otros progra- 
mas. 


Se puede usar el mismo procedi- 
miento en los cinco ordenadores 


para intercalar las subrutinas al- 
macenadas en una cinta y los 
programas principales que te- 
clearás más tarde. 
1) Carga las subrutinas de la 
cinta al ordenador. 
2) Teclea el programa princi- 
pal línea por línea. Como 
los números de las líneas 
de subrutinas son mayores 
que mil no se confundirán 
con los programas princi- 
pales que están numerados 
por cientos, 

3) Ejecuta el programa com- 
pleto para comprobar que 
funciona. 

4) Almacena el programa com- 
pleto en una cinta virgen. 


Es posible que algunos progra- 
mas funcionen demasiado rápido 
o demasiado despacio para tu 
gusto. Al cambiar el valor del 
bucle de espera en la subrutina 
1400 puedes acelerar o retardar 
la ejecución. 

En el resto del libro la variable 
T se utiliza siempre para indicar 
la velocidad de ejecución. Prueba 
con distintos valores para ver 
cómo éstos inciden en el progra- 
ma. 


SPECTRUM 


Línea 1000: Identifica la bibliote- 
ca de subrutinas que sigue. 
Línea 1100: Define el área de la 
pantalla que se utiliza para el 
texto y coloca el cursor en la 
línea 8. 

Línea 1200: Borra la pantalla y 
coloca el cursor en la línea 8. 
Línea 1300: Genera un número 
aleatorio. 

Línea 1400: Define un intervalo 
de tiempo durante el cual el or- 
denador ejecuta un bucle 200 
veces. 

Líneas 1500-1520: Esperan a que 
el usuario teclee un carácter. 
Línea 1600: Comprueba si se está 
pulsando el teclado, 

Línea 1700: Imprime en posición 
X.e Y, 

Línea 1800: Imprime en posición 
X. 

Línea 1900: Sube el cursor una 
línea más arriba. 

Línea 2000: Avanza el cursor una 
columna. 

Línea 2100: Introduce un número 
como una variable llamada K. 
Líneas 2200-2240: Introducen in- 
formación como una variable de 
cadena llamada K$. 

Línea 2300: Borra la pantalla y 
coloca el cursor en posición 
inicial. 

Línea 2400: Suena una nota. 
Línea 2500: Convierte el código 
ASCII en un carácter. 

Línea 2600: Busca un carácter en 
medio de una cadena. 

Línea 2700: Convierte un carác- 
ter a código ASCII, 

Línea 2800: Borra la pantalla. 
Línea 2900: Crea una tabla con 
26 espacios. 

Línea 3000: Crea una tabla con 
60 espacios. 

Línea 3100: Convierte una sola 
letra en código ASCH, 


LISTADO | 


1000 
1100 


1200 
1300 
1400 
1500 
1310 
1920 
1500 
1700 
1300 
1200 
2000 
Pa 


2200 
2210 


a a 


2230 


2240 


2300 
2400 
2200 
2600 
2700 
2800 
22900 
3000 
2910), 


REM SUBRUTINAS SPECTRUM 

LET We 32aLET D=22:LET F=8:3 
GOSUB 1200: RETURN 

CLS¿PRINT AT 8,035 : RETURN 

LET R=INT  (N*RND+1) :¿ RETURN 
FOR Z=1 TO 229% 2NEAXAFT Z£:RETURN 
TF INKEVESS"" TREN BOTO. 1300 
TF" INRENS="" TREN GOTO. PSLO 
LET G$=INKEYS: RETURN 

LET K$=TNKEYS 2 RETURN 

PRINT AT Y, X5 RETURN 

PRINT TAB (3 31 RETURN 

PRINT. CHRS$C(11)6 RE FURN 


PRINT CHR$(9) 3: RETURN 

SOSUB 22002: LET RK=VAL (“O"+K$)0 
RETURN 

LET ERS$=*" 

GOSUB 15007 1F CODEC6G+)=13 THEN 
PRINT ¿RETURN 


IF CODE (6$)<>12 THEN LET K$=kK$+0%: 
PRINT G$;:G0TO 2210 

IF LEN(K$)=0 THEN GOTO 2210 

PRINT CHRA$(8)3"."¿CHR$(8)g3 

LET k$=kK$ (TO LEN (K$)-1):GOTO 2210 
CLS ¿RETURN 

BEEP .1,Z/10-6: RETURN 

LET R$=CHRS (R+64) : RETURN 

LET P$=K8 (P) ¿RETURN 

GOSUB 2600:LET A=CODE (P$) : RETURN 
CLS: RETURN 

DIM 48 (26) : RETURN 

DIM W$ (60) : RETURN 

LET GG=CODE (6%) : RETURN 


q 1000: feia la bibliote- 
ca de subrutinas que sigue. 
Línea 1100: Pone el ordenador en 
Modo 5; saca un fondo azul y 
coloca el cursor en la línea 8. 
Línea 1200: Borra la pantalla y 
coloca el cursor en la línea 8. 
Línea 1300: Genera un número 
aleatorio, 

Línea 1400: Define un intervalo 
de tiempo durante el cual el or- 
denador ejecuta un bucle 1000 
veces. 

Línea 1500: Espera a recibir un 
carácter del teclado. 

Línea 1600: Comprueba el tecla- 
do para ver si se ha pulsado una 
tecla. 

Línea 1700: Imprime en posición 
2 E, 

Línea 1800: Imprime en posición 
2 

Línea 1900: Sube el cursor una 
línea más arriba. 

Línea 2000: Avanza el cursor una 
columna. 

Línea 2100: Introduce un número 
como una variable llamada K. 
Línea 2200: Introduce texto co- 
mo una variable de cadena lla- 
mada K$. 

Línea 2300: Vuelve a poner la 
pantalla en negro con texto 
normal. 

Línea 2400: Suena una nota. 
Línea 2500: Convierte el código 
ASCH en un Carácter. 

Línea 2600: Busca un carácter en 
medio de una cadena. 

Línea 2700: Convierte un carác- 
ter en código ASCIL 

Línea 2800: Borra la pantalla. 
Línea 2900: Crea una tabla con 
26 espacios. 

Línea 3000: Crea una tabla con 
60 espacios. 

Línea 3100: Convierte una sola 
letra en código ASCII. 


1000 
1100 


TAB(O,8); 
ESTA cli 


DETIENE De RE MR 


1200 


R= pe JOCAR 


RI E 
RINT CH A 

LNPUT RGRETUE 

INPLIT + .. 

MODE YE RETUR 

SOUND. Lo a ida 

RE$=z CHAS (R+A040 GRET 

PH TDDS UNE a RE TUR E 

. GOSUE 2600:4=45C (PS 3RETUEN 

280 o C LS: RETURN 

2200 DIM VPCz267 RETIRO 

3000 DIM N$ (680): RETURN 

3100 556=A5C (6%) ¿RETURN 


Is 
E 
> 
F 
Ea 
E 


MSX | 
Línea 1000: Identifica la bibliote- 
ca de subrutinas que sigue. 
Línea 1100: Define el área de la 
pantalla que se utiliza para el 
texto y coloca el cursor en la 
línea 8. 

Línea 1200: Borra la pantalla y 
coloca el cursor en la línea 8. 
Línea 1300: Genera un número 
aleatorio. 

Línea 1400: Define un intervalo 
de tiempo durante el cual el or- 
denador ejecuta un bucle 200 
veces, 

Línea 1500: Espera a recibir un 
carácter del teclado. 

Línea 1600: Comprueba el tecla- 
do para ver si se ha pulsado la 
tecla. 

Línea 1700: Imprime en posición 
X e Y, 

Línea 1800: Imprime en posición 
a 

Línea 1900: Sube el cursor una 
línea más arriba. 

Línea 2000: Avanza el cursor una 
columna. 

Línea 2100: Introduce un número 
como una variable llamada K, 
Línea 2200: Introduce un texto 
como una variable de cadena 
llamada KS$. 

Línea 2300: Borra la pantalla y 
coloca el cursor en posición 
inicial. 

Línea 2400: Suena una nota. 
Línea 2500: Convierte el código 
ASCH en un carácter. 

Línea 2600: Busca un carácter en 
medio de una cadena. 

Línea 2700: Convierte un carác- 
ter en código ASCIL 

Línea 2800: Borra la pantalla. 
Línea 2900: Crea una tabla con 
26 espacios. 

Línea 3000: Crea una tabla con 
60 espacios. 

Línea 3100: Convierte una sola 
letra en código ASCIL 


1000 
1100 
1200 
1300 
1400 
1300 
1310 
alo 
16400 
1200 
1800 
1200 
000 
106 
2200 
2300 
2400 


2300 
2600 
2700 
2800 
2200 
3000 
3100 


ITINAS 


+7 


¿RETURN 
ODA TE NEXT 


FOR 
G%=IMKREYS:2 1 


¿=1 TO 


THEN 


A$=INKEYS: 1F 
LIRIN 
K$= INKEYS 


PRINT 
PRINT 
PRINT 
INPUT Ki: RETURN 
INPUT K$: RETURN 
CLSi: RETURN 

PLAY "“TISOLIGNU + 
HAD RETURN 


CHAS (30) 31 RETURN 
CHAS CE 


O a ES IRON 


STR$ CINT (E 


LET ORE=CHR$ (R+64) : RETURN 
P$=M1DS$ (Kk$,P,1): RETURN 


GOSUB 24600: 4=4SC(P38): RETURN 
CL.S 1: RETURN 

DIM V$ (26): RETURN 

DIM W$ (60) : RETURN 
GG=ASC (6$) ¿RETURN 


1200: RETURN 


RETURN 


THEN 50 


LON +30 


TG 1500 
me spas; 


Línea 1000: Identifica la bibliote- 
ca de subrutinas que sigue. 
Líneas 1100-1110: Definen el área 
de la pantalla que se utiliza para 
el texto y colocan el cursor en la 
línea 8. 

Líneas 1200-1230: Borran la pan- 
talla y colocan el cursor en la 
línea 8. 

Línea 1300: Genera un número 
aleatorio. 

Línea 1400: Define un intervalo 
de tiempo. 

Líneas 1500-1510: Esperan a que 
el usuario teclee un carácter. 
Línea 1600: Comprueba si se está 
pulsando el teclado. 

Líneas 1700-1730: Empezando 
con el cursor en la esquina supe- 
rior izquierda, baja Y líneas y 
avanza X columnas para impri- 
mir en posición X e Y, 

Líneas 1800-1810: Imprimen en 
posición X. 

Línea 1900: Sube el cursor una 
línea más arriba. 

Línea 2000: Avanza el cursor una 
columna. 

Línea 2100: Introduce un número 
como una variable llamada K. 
Línea 2200: Introduce texto co- 
mo una variable de cadena lla- 
mada K$, 

Línea 2300: Borra la pantalla y 
coloca el cursor en posición 
inicial. 

Líneas 2400-2420: Sonido. 

Línea 2500: Convierte el código 
ASCH en un carácter. 

Línea 2600: Busca un carácter en 
medio de una cadena. 

Línea 2700: Convierte un carác- 
ter en código ASCII 

Línea 2800: Borra la pantalla. 
Línea 2900: Crea una tabla con 
26 espacios. 

Línea 3000: Crea una tabla con 
60 espacios. 

Línea 3100: Convierte una sola 
letra en código ASCIL 


1000 
1100 
1110 
1200 
1210) 
1220 
1230 
1300 
1400 
1500 
psi) 
1600 
1700 
O 


1/20 


1230 
1300 


13810 
192900 
2000 
2100 
pt ll 
2300 
2400 
2410 


ALADO 
a a 


2300 
2600 
2700 
2300 
2900 
3000 
3100 


REM SUBRUTINAS VICZO 
W=20:D=2 

F=8:GOSUB 1200: RETURN 

PRINT CHR$ (147) 

FOR LL=1 TO 8: PRINT:¿NEXT LL 
PRINT; 

RETURN 

R=INT(RND (1)%NM+1) : RETURN 


FOR Z=1 TO 1000%*T:MEXT Z:RETURN 


GE SII += 
RETURN 

GET Kk$: RETURN 
PRINT CHR$ (19) 
IF YD THEN FOR LL=1 
PRINT CHRSCIZI ES NEXT 
Le Ae THEN FOR il=] 
PRINT CHAR$SCIR) NaNEXT 
RETURN 

LE -X%0 THEN FOR LL=1 
PRINT CHRSC29) 3: MEXT 
RETURN 

PRINT CHR$ (145) 3: RETURN 
PRINT CHAS (29) 3: RETURN 
INPUT Ki RETURN 

INPUT R$: RETURN 

PRINTO CHAS (147) 2 RETURN 
POKE 36878 ,15:POKE 36875 
FOR M=1 TO SO:NEXT M 

PORKE 36876 ¿O RETLIRN 

R$= CHAS (RA 440 RETURN 
Pé=MIDS$(K$,P, 1): RETURN 
GOSUE 260014=48C (PS) 2 RETURN 
PRINT  CHRS (147) 3 RETURN 

DIM Va (26): RETURN 

DIM $ (60); RETURN 

G6=ASC (5%): RETURN 


THEN 1500 


LO YE 
a 
TO Xa 
E 


NC dE 
At 


.7+128 


Línea 1000: Identifica la bibliote- 
ca de subrutinas que sigue. 
Línea 1100: Define el área de la 
pantalla que se utiliza para el 
texto y coloca el cursor en la 
línea 8. 

Línea 1200: Borra la pantalla y 
coloca el cursor en posición ini- 
cial, 

Línea 1300: Genera un número 
aleatorio. 

Línea 1400: Define un intervalo 
de tiempo durante el cual el or- 
denador ejecuta un bucle 650 
veces. 

Líneas 1500-1510: Esperan a que 
el usuario teclee un carácter. 
Línea 1600: Comprueba si se está 
pulsando el teclado, 

Línea 1700: Imprime en posición 
X e Y. 

Línea 1800: Imprime en posición 
pe 

Línea 1900: Sube el cursor. una 
línea más arriba. 

Línea 2000: Avanza el cursor una 
columna. 

Línea 2100: Introduce un número 
como una variable llamada K. 
Línea 2200: Introduce informa- 
ción como una variable de cade- 
na llamada K$. 

Línea 2300: Borra la pantalla y 
coloca el cursor en posición 
inicial. 

Línea 2400: Suena una nota. 
Línea 2500: Convierte el código 
ASCII en un carácter. 

Línea 2600: Busca un carácter en 
medio de una cadena. 

Línea 2700: Convierte un carác- 
ter en código ASCIL 

Línea 2800: Borra la pantalla, 
Línea 2900: Crea una tabla con 
26 espacios. 

Línea 3000: Crea una tabla con 
60 espacios. 

Línea 3100: Convierte una sola 
letra en código ASCIL 


1100 
1200 
1300 
1400 
1500 
1510 
16400 
1700 
1300 
12900 
000 
2100 
2200 
2300 
2400 
2300) 
2600 
2700 
2800 
2300 
3000 
3100 


1000 


REM SUBRUTINAS DRAGON 
WN=32:D=16:F=8:G0S5UB 1200: RETURN 
CLS:PRINT a 256,"";: RETURN 
R=RND (N) : RETURN 

FOR Z=1 TO 450*T:NEXT 
Gé=INKEYS: 1F G9="" 
RETURN 

Ké= INKEYS: RETURN 
PRINT O 32xY+X,""3:RETURN 


2: RETURN 
THEN GOTO 1500 


PRINT TAE CIO 3 RETURN 
PRINTO CHAS (9413: RETURN 
PREMNT CHREC0S RETURN 
TNPUT Ei RETIURA 

IMPLUT KSs3 RETURN 

CLSi RETURN 


SOUND 2,1: RETURN 

RB=z CHAS (CRA 4 RETIRA 
PS=M1D38 (58, P, 1): RETURN 
GOSUE 206001 A4=45C0 (PS) 3 RETURN 
CESTREFIRN 

DIM Ve$(26): RETURN 
DIA 1438 COD): RETLJRAN 
GG=ASC (5$:5 RETURN 


JUEGOS DE DIVERSION 


INTRODUCCION 


Como eres un piloto extraterres- 
tre, tienes unas ideas un poco 
extrañas sobre lo que son buenos 
modales al volar. Por ejemplo, 
cada vez que visitas la Tierra, te 
parece una buena idea hacerte tu 
propia pista de aterrizaje —ya 
sea en medio del campo o de una 
ciudad. 

Tu problema es que necesitas 
una pista que sea amplia y lisa 
para aterrizar. Un terreno irregu- 
lar podrá estropearte el tren de 
aterrizaje. 

En este viaje a la Tierra se te 
ha ocurrido hacer una visita al 
alcalde de Nueva York. Al acer- 
carte, te das cuenta de que hay 
demasiados rascacielos en medio. 
Tendrás que abrirte una pista de 
aterrizaje lo más próxima del 
ayuntamiento, 

Por supuesto, no te puedes 
imaginar lo enfadado que se 
pondrá el alcalde cuando vea que 
le has arrasado la ciudad. Sin 
embargo, tu mayor preocupación 
de momento es tu tren de aterri- 
zaje. 

Cada vez que vueles sobre la 
ciudad, dispara las bombas apre- 
tando la barra de espacios o el 
número 0 en el teclado del orde- 
nador. No olvides que sólo pue- 
des disparar una bomba en cada 
pasada. Si pulsas la tecla dos 
veces, la segunda bomba caerá al 
azar. 


CONSEJOS 


Para efectuar un aterrizaje se- 
guro, intenta deshacerte lo antes 
posible de los edificios más altos. 
Tendrás que destruir todos los 
edificios antes de poder aterrizar. 


VARIACIONES 


La velocidad de la nave espacial 
depende del valor T en la línea 
260. Puedes multiplicar por dos 
la velocidad cambiando T=.2 
por T=.1, 


NOTAS DE LINEA 


Líneas 100-120: Definen el área 
de la pantalla que se utiliza para 
el texto e imprime el título. 


100 REM EOMBARDERO 
AO BOSE DOBLA bea is ae EOMEBARDERO!" 
120 LE T=2a56OSUE 1400: G0SUE 2800 
, HC 
" N=4 FOR I=1 TO 14:GOSUBE 1.3005 
HCIt+11=SR+ o ANEAD IELET ACI =D: 
H(163=0 

=15 10 6 STEP 1ILET X=d2 
E) 


Líneas 130-180: Crean los edifi- 
cios de la ciudad que tienes que 
sobrevolar. Las posiciones de las 
torres cambian con cada juego. 
poo E 

Líneas 190-340: Imprimen la na- THEN PRENT PA 
ve espacial en lo alto de la panta- 
lla, controlan la velocidad de la 


nave y los bombardeos.  ERO 
Líneas 350-370: Imprimen los 
mensajes que te indican los resul- : 
tados del juego. THEN 2 Y D=-1: 
SY FB O BOSUE 17005 
A a MALE DL IBSBti: ET Dei 


114 THEN 60TO 200 
1=4:3G60SUE 1400:G0TO 360 
==. 21G60SUB 1400: 
6)+B=16 THEN GOTO 320 
1 TREN GOTO 200 

GOSUB 1600: IF e O 


LET Fs1:LET X= At O0R Y=EB+L ODO 13% 
GOSUB IXQOSPRINT A GELED => 
GOSUB 1400 

LET Z=100: GOSUB 2400:G05UB 1700: 
PRIMO a albert: ooo SuUb 4400: 
NEXT Y: LET H(A)=0 


GOTO 200 
LEC 1= Ls: FOR E=1 10 8:B0SUB 1/00: 
PRINT "..... “""LET Z=20:50S5UB 2400 


GOSUB 1400:GOSUB 1700: PRINT 
GOSUE 17TO0D2PRENT “XA. 1 LED sz 
GOSUB 1400 

GOSUB Z28D0SPRINTEPREINTS 

PRINT "NO LO CONSEGUISTE!*": 

5010 330 

GOSUB 2300: PRINT:PRINT> 

PRINT "BUEN ATERRIZAJE!": PRINT 
ERENT “QUE LO. PASES BLEND: 
PRINT:PRINT:PRINT:< STOP 


INTRODUCCION. ] 


Eres el capitán de un pesquero 
rastreador en el Atlántico Norte. 


Tú y tu tripulación estáis pescan- 
do peces tontos en la costa de 
Islandia. Los peces tontos son 
tan tontos que sólo se tragan la 
comida si la tienen delante de las 
narices. La única manera de pes- 
carlos es dejar caer un anzuelo 
con cebo justo encima de ellos. 
Como eres el capitán del na- 
vío, debes encontrar la posición 
adecuada para el pesquero y la 
profundidad a la cual nadan los 
peces tontos. Después de cada 
intento, el sonar del barco te 
informará si has estado a punto 


Pesquero en O/E:5- S/N:4 
Pez en P:8 


de pescar un pez; y como es un 
aparato muy sofisticado, tam- 
bién te indicará si pescas algo. 

El diagrama inferior muestra 
la zona en la que estás pescando. 
Se ha numerado de nueve a uno 
la distancia de oeste a este (O/E) 
y también la distancia de sur a 
norte (S/N). La profundidad de 
la cuenca marina (P) se indica 
desde 1 en la superficie hasta 9 
en el fondo. 

Cada vez que juegas, introdu- 
ces los datos de posición de su- 
perficie y de profundidad. Para 


Superficie 
del océano 


ondo 
del océano 


que no juegues al azar, toma 
nota de los movimientos anterio- 
res, utilizando el diagrama del 
libro o haciendo uno en un papel 
por separado. Cuando te hayas 
acostumbrado a pescar en un 
área tridimensional, conseguirás 
atrapar un pez en cuatro jugadas 
o menos. 

En cada juego, el ordenador 
esconde los peces tontos en dis- 
tintas posiciones, 


Si la primera vez que juegues 
apuntas a la posición 5,5;5 habrás 
eliminado tres cuartas partes de 
la zona en una sola jugada. 


Líneas 100-130: Definen el área 
del texto e imprimen el título en 
la pantalla; luego lo borran. 


Línea 140: Crea el diagrama en el 
que se sitúan los peces. 


Líneas 150-200: Imprimen las 
preguntas para que tú adivines la 
posición del pez. 


Línea 210: Imprime el mensaje 
que indica que has pescado un 
pez. 


Líneas 220-310: Comparan tus 
intentos con la ubicación del pez 
y te dan las instrucciones en caso 
de que no hayas pescado nada. 


Línea 320: Vuelve atrás para que 
lo intentes de nuevo, 


Líneas 330-340: Te indican el 
número de jugadas que has teni- 
do que hacer para pescar un pez. 


210 


341) 
put) 


REM PEZ 


TONTO 
GOSUE 1100 

PRINT "....PEZ.TONTO" 
LET T=2:G0SUB 1400:605U 
LET N=9:GOSUB 1300:LET 
GOSUB 1300: LET E=R:GOS 
LET C=Ri LET S5=0 

LET S=S+1:PRINT: 

PRINT STR$(S)3"..0/Ex"g 
GOSUB 1500:GOSUB 3100: 
LET D=66-48: 

IF DX1 OR D>9 THEN GOTO 
PRINT G$3".S/N2"; 


GOSUB 1500:GOSUB 3100: 

LET E=G6-48:1 

IF E<1 OR E>9 THEN GOTO 
G530.Potg 


E R Y 0 É 


SUE LO 


TERA RA 
PRIMT OOS:PR 1h Y E 


IF A=D AND B=E AND C=F 
PRINTO "LO. HAS. PESCADO!" 


GOTO 330 
PRINTO"MUEVETE 


1 A=L ARDE 


IF EXE THEN PRINT 

e ESE VAREN DESTINO 

TE Dá THEN PRINT 

1E€ Da THEN PRINT 

ESO MREN GOTO 

PREMIO sa 

IF FXC THEN PFRINT “ABAJ, 
“AREI 


EE 
PRENTSPRIUNTSE 
LET T=4:350SUb 
PRINTEPRINT 
PRIMT "MECES 
e INTENTOS 
PRINT:PRINMNT "PA 
PRENT PRENDE 


CINE 
ai 


1400:608S1) 


AR. PESC 


Se 


E 2800 
Aáa=Ra 
UB 13002 


1460 


181 


A 


pes " 
* 


BA" 


UIC E 


E 
uy 


Dos un no se pueden tocar, 
así que bombardea cuadrados 
con un espacio entre ellos hasta 
que des en el blanco. 


Hrrr A 
Hre++ 
redee 
HH 
+++ +4+ 


A causa den un error e afiminisenad: 
vo del Ministerio de Transportes, 
Suiza descubre un día que acaba 
de comprar una flota moderna 
de primera clase. El resto del 
mundo está furioso y manda un 
escuadrón internacional de bom- 
barderos para hundir la flota sui- 
za que, por una extraña razón, 


está camuflada en el campo. 190 B = E al | 
La flota suiza se compone de 120 DIM B(6,8; 
las siguientes naves: 130 Dim S$(6) 
1410 PRINT Usos has PLOT. SuUTZA”" 
1 Buque de guerra (BBBB) || 150 FOR 1=1 10 6 : FOR J=1 TO 8: 
1 Crucero (CCC) ; ato a ( : E cd O AA I 
1 Destructor (DD 60 DATA O,1,1,1,1,0,0, 
e a le 3 170 Data 0,0,0,0,0,0,2,0 
apeos paella 110 180 DATA 3,3,0,0,0,0,2,0 
Las cinco naves están escondi- o 
E 200. DATA SD OO O 
das en un tablero. Cada posición IO DATA Da ae 
se identifica por el número de 297 dea I=1 Li E A I 
, " AA) Da pa E S u 08 5 u es e Ka 10 á Ud “u " 
línea y la letra de columna. Para || 20 Cer r=zidosuá 1400:60sUB 2800: 
bombardear una posición, teclea PRINT 
la línea y luego la columna. 250 PRINT "...A.B.C.D.E.F.G.H":PRINT 
Cda lunts l a- | BEBO -PRINT "Lor ro” PRENT 
r ena] Mella. E mo o E RN a o E INT 
ece en la pantalla. uando tocas 280 ERTNT 1 eee PRD 
un barco, la letra aparece en el 2900 PRINT ".4,.+.+. + +7. + +++": PRINT 
tablero. para hundir la flota suiza 20n q AL ña EA A E IPRINT 
: y Pm y PR] MO A E A A LALA 
tienes que encontrar y destruir 350 LET BsOLLET HzO 
las cinco naves usando el menor 330 ET Babs+1 
número posible de bombas. Para 341) Dora ¿LET Y=14: GOSUB 1700: 


hacerlo más difícil, si por equivo- 
cación bombardeas una montaña 
(M) tus aviones se destruyen y 
tienes que volver a empezar. 


3350 GOSUB 1700:PRINT “LINEA."“; 
340 GOSUB 1500:B60SUB 3100: 

LET R=56-48: 
IF RX1 OR R>ó6 THEN GOTO 360 
ERINT IES: GOL: 


GOSUBE 1500: GOSUE 
LET C=556-644 


Le CE OR Eso 


YE 


THEN GOTO 380 


SO PRENDER 
400 LET P=B(R,C)3: 


IF O P=O THEN 

GOTO 430 
410 1 P24 THEN GOTO 430 
PRINT "TOCADO!" 
LETOB(R,C)=O6LET Hebe 


PRENT FAaLbaáastES>: 


430 LET X=2CHISLET V=2RR+1:3 
GOSUE 1/D05PRINT S$(P+1)y:< 
440 IF P225 THEN GOTO 470 
AO ER ASES LED NEO GOSsSuB 1/00: 
PRINT "EOMBARLEASTE ., UNA. MONTANA LU 
¿LET Te2GOSuUB 1400 
“+60 GOTO 520 
470 LET T=3:G0S6UB 1400:1 HX<11 THEN 
GOTO. 340 
440 GOSUE 2300: PRINT¿PRINT: 
PRIM "NECESETASIE:. O TURE CE) BOMBAS" 
490 PRINT:PRINT "PARÁ.HUNDIR.LA.FLOTA.SUTZA" 


PRINTSTE CEES0 O DREN 


PRENT o PBUEN- ATAQUES 
GOTO 520 
5310 PRINT "NECESITAS.PRACTICA" 


PRINTEPRINT<PRINTISTORP 


Líneas 100-140: Definen el área 
de la pantalla e imprimen el títu- 
lo del programa. 


Líneas 150-230: Colocan los na- 
víos de la flota suiza en el ta- 
blero. 


Líneas 240-340: Imprimen el ta- 
blero vacío en la pantalla. 


Líneas 350-390: Te piden que 
teclees una jugada. 


Líneas 400-430: Te indican si has 
dado en el blanco o no. 


Líneas 440-460: Te indican si has 
tocado una montaña, con lo cual 
el juego se acaba. Si esto ocurre, 
tienes que empezar de nuevo el 
juego. 


Línea 470: Te da otra oportuni- 
dad de bombardear una posición 
en el tablero. 


Líneas 480-510: Resumen el nú- 
mero total de bombas que has 
necesitado para hundir toda la 
flota. 


Para esconder las naves al princi- 
pio de un nuevo juego tienes que 
cambiar los datos de las líneas 
160-210, Los números tienen que 
formar una línea recta, pero se 
pueden colocar en horizontal, 
vertical o diagonal. El código 
para cada tipo de nave es el 
siguiente: 


1=Buque de guerra 
2= Crucero 

3= Destructor 
4=Barco patrulla 
5= Montañas 


Se puede determinar con mucha 
exactitud la trayectoria de una 
bomba, y tienes la obligación de 
hacerlo con un cien por cien de 
exactitud, 

Hay un observador en globo 
que te indica por radio la posi- 
ción de los blancos que debes 
bombardear en diez disparos. 

Tu ametralladora tiene un al- 
cance de 500 a 15.000 metros, Se 
consiguen mayores distancias a 
un ángulo de 45% aunque el ca- 
ñón puede subir hasta 90% y bajar 
hasta 1% Puedes elegir el ángulo 
correcto de disparo subiendo o 
bajando el cañón de grado en 
grado. Si disparas a 90% la bomba 
subirá y bajará en vertical, y te 
fulminará en el acto, 

Los blancos se encuentran al 
azar a intervalos de 500 m. Das 
en el blanco si tocas cualquier 
punto a 250 m del centro del 
mismo y, si fallas, también te lo 
indican con una aproximación 
de 250 m. 

Como las bombas son muy 
caras, sólo tienes una posibilidad 
de dar a cada uno de los blancos, 
cosa que conseguirás si el ángulo 
de disparo es correcto, 


LISTADO | 


100 
110) 
1:20 
130 
140 
1 


150 
AD, 


130 


19290 
200 


20) 


220 


230 
240 


230 
260 
70 
280) 


290 
301) 


310 


eE 
330) 


34 


4500 
361) 


REM APUNTEN FUEGO 

GOSUÉE 1100:LET H=0 

PRINT "APUNTEN. FUEGO": PRINT:¿PRINT 
PRINT "TIENES.10.BOMBAS" 

LET H=0: FOR G=1 TO 10 

LET N=29:GOSUBE 1300:3 

LET R=500%R+300 

LET T=3:GOSUB 1400 


GOSUB 2800:PRINT: 
PRINT “BLANCO.A. "ERE" METROS" 
PRINT:¿PRINT "ANGULO.DE.DISPARO?."3: 


DOSUENELDOT E STO OR 
50t0 170 
PRINT:PRINT:¿PRINT 
TERS=SD0 THEN PRE y 
PENT ASeUNe. ESTAS oO MOER TOS! y 
GOTO 270 

LET D=15000*SIN(6.3x*k/180) 

LEFT IESZ2IDOANT € TDR LL UA 
1F ARS(EJS2390 THEN GOTO 50 
PRINTI<PRIMTPRINT "RBUMNEE" 

LET H=H+1:60TG 270 

LET Mb=" CORTOS WE EsD TREMOLET 
Hé=" LEJOS" 
PRENTSPRINT “ESO 
AI OL 


k21 THEN 


GUEDO "¡ABS(E>; 
"DEMASIADO. “Mé 


NEXT G 

PRINT O ¿PRINTO "NO. GUEDAN, BOMEAS" 
LET T=3:G60SUB 14D00:¿GOSUE 2800 
LES PENN Et 

C$=" .RUEM.DISPARO.!*": 

GOTO" 330 

LE DEEEZ. MAHENO LES 

Ub"... MO ESTA MÁL 1%: 

GOTO 330 

LET C$="NECESITAS.PRACTICA.!" 


PRINTSPRENTIPRINT Cs 

PRINTi¿PRINTO "BOMEARDEADOS:" 3 
HS BLOANCOSS 
PRINT:¿PRINT 
PROMETER SPRINT S OP 


Si mantienes una lista de los 
blancos, el ángulo de disparo, y 
la indicación de dónde han caído 
las bombas, enseguida te percata- 
rás de la dirección que siguen, y 
podrás modificarla adecuada- 
mente para mejorar tu puntería. 


Por debajo de los 45%, las bom- 
bas seguirán una trayectoria bas- 
tante baja. Intenta acertar utili- 
zando posiciones entre los 45% y 
los 89%, ¿Cuáles son los ángulos 
mayores que consiguen el mismo 
efecto que los menores? 


Líneas 100-130: Definen el área 
del texto e imprimen el título y el 
primer mensaje. 


Líneas 140-170: Seleccionan la 
ubicación del blanco y lo impri- 
men en la pantalla. 


Línea 180: Te pide que des un 
ángulo correcto de disparo. 


Línea 200: Indica el resultado de 
un disparo efectuado a 900, 


Líneas 210-250: Calculan dónde 
ha caído cada bomba y si está lo 
suficientemente cerca del blanco 
para marcar un tanto, 


Línea 260: Indica los disparos 
perdidos y el error que han te- 
nido. 


Línea 270: Aparece el siguiente 
blanco, 


Líneas 280-350: Resumen los tan- 
tos después de diez disparos. 


APUNTEN ¡FUEGO! 


Después de una larga noche en 
un casino de Nevada, te das 
cuenta de que sólo te quedan 
diez dólares y la camisa que lle- 
vas puesta. Dispuesto a recuperar 
todo tu dinero, decides jugarte lo 
que te queda en una máquina 
tragaperras. 

Las apuestas van de un dólar a 
30 dólares. Si ganas 101 dólares, 
dejas la máquina vacía. Por otra 
parte pierdes cuando no te queda 
más dinero, 

Las combinaciones de las fru- 
tas son aleatorias, Ganas con las 
combinaciones siguientes: 


1 x apuesta con Cereza 


Cualquier Cualquier 
fruta fruta 


3 x apuesta con Misma fruta 


Misma Cualquier 
fruta fruta 


4x apuesta con Misma fruta 
Misma Misma 
fruta fruta 


Con cualquier otra combina- 
ción pierdes tu apuesta. 


No apuestes demasiado si te que- 
da poco dinero. Espera a tener 
más para poder realizar apuestas 
mayores y ganarle así a la má- 
quina. 


REM TRAGAPERRAS 

DIM FES$(4) 

FOR I=1 TO 4:READ F$(1):NEXT 1 

DATA "LIMON", "NARANJA", "CEREZA", "LIMA" 
LET M=10 

GOSUB 1100 

PRINT “...MAGUINA TRAGAPERRAS" 

LET T=2:GOSUB 1400 

GOSUB 2800: PRINT+ 

PRINT "..CUANTO" 

PRINT:PRINT "..QUIERES.APOSTAR?." 
GOSUB 2100 

IF K<1 OR K>30 OR KXPINT(K) OR K3M 
THEN GOTO 180 

LET T=2:G60SUB 1400:LET N=4:x 

GOSUB 1300:LET R1i=R:GOSUB 1300: 

LET R2=R:LET R3=R 

PRINT:PRINT:PRINT ES(RIDGU."g 
ESCRIBA) 

IF Ri=R2 THEN GOTO 250 

LET Me="PIERDES"¿LET M=M-K21G0TO 270) 
IF OR<>»R3 THEN LET 

M$= "GANAS. $"+STRE (JARDILET M=M+ 3x2 
GOTO 270. 

LET Mé$="GANAS. $"+STRS (4x0) 1 

LET M=M+4*eK 

IF Mé="PIERDES" AND Ri =3 THEN 

LET Mé$="GANAS. $"+STR$(K): 

LET Mem 2xrk 

PRINT:¿PRINT "TU. "¿Mega 
PRINTE¿PRINT 

IF M=0 THEN 

RRINT "LO.SIENTO.ESTAS.BANCARROTA!U: 
GOTO 320 

IF M*100 THEN 

PRINT "HAS.ARRUINADO.A. LA.MAGQUINA!" 
PRINT "TE. .QUEDAN.$"¿M2LET T=3x 
GOSUB 1400: 1F M£=100 THEN 

GOTO 170 

PRINT:¿PRINTISTOP 


[| VARIACIONES 


|| [NOTAS DE LINEA 


Si quieres, puedes cambiar tus 
ganancias. De momento tienes la 
misma posibilidad de ganar que 
de perder. Si cambias STR$(3*K) 
a STR$(4*K) y M=M+3"K a 
M=M+4'K en la línea 250 
cambiarás los beneficios de tres a 
cuatro, 

Puedes hacer el mismo tipo de 
cambio, aumentando los benefi- 
cios, en las lineas 260 y 270. 


Líneas 100-130: Leen los datos; 
en este caso las cuatro frutas que 
usa la máquina para crear las 
distintas combinaciones. 


Línea 140: Define la cantidad de 
dinero que tienes al empezar. 


Líneas 150-170: Definen el área 
del texto en la pantalla e impri- 
men el título. 


Líneas 180-200: Te piden que 
elijas y teclees tu apuesta. 


Líneas 210-220: Crean una com- 
binación aleatoria de las frutas. 


Líneas 230-270: Calculan cuánto 
dinero ganas o cuánto pierdes. 


Líneas 280-310: Te indican si has 
ganado o perdido, cuánto dinero 
te queda, y por último, si la 
máquina está bancarrota. 


| JUEGOS DE DIVERSION 


Es un juego de golf por ordena- 
dor en el cual todos los movi- 
mientos van en zigzag. Se tira la 
pelota eligiendo su altura (zig) de 

) a 9, y la distancia (zag) tam- 
bién de 0 a 9, 

Podrás comprobar que, para 
que la pelota se meta en el hoyo, 
tiene que caer justo encima. Si 
tiras muy fuerte, fallarás. Tienes 
que hacer 9 hoyos para ganar 
una ronda en el mínimo de juga- 
das posible; y el que menos juga- 
das haga, gana. Si practicas lo 
suficiente, podrás hacer 9 hoyos 
en menos de 27 tiradas. 


Cuando apuntes a un hoyo que 
esté muy cerca del extremo supe- 
rior de la pantalla, será más fácil 
acertar si apuntas a zig, y dejas 
zag en 0; haz lo contrario cuando 
apuntes a un hoyo que esté en el 
extremo inferior de la pantalla. 

Recuerda también que se ha 
definido el tamaño del terreno y 
los hoyos no están a más de 10 
unidades de distancia en línea 
recta a partir de tu posición 
inicial, 


Líneas 100-120: Definen el área 
del texto e imprimen el título, 


Líneas 130-150: Definen el área 
del terreno. Indican el número 
del hoyo al que apuntas y mues- 
tran la posición de la que partes, 


Línea 160: Posiciona el hoyo al 
que apuntas. 


Líneas 170-190: Te piden los va- 
lores de zig y de zag para esta 
jugada. 


Líneas 200-220: Muestran la tra- 
yectoria de la pelota en su movi- 
miento hacia el hoyo. 


Líneas 230-240: Te indican si has 
metido la pelota o no en el hoyo. 


Línea 260: Registra el número de 
hoyos que has recorrido. 


Líneas 270-300: Resumen tu pun- 
tuación después de 9 hoyos y te 
comentan las jugadas. 


GOLF EN ZIGZAG 


REM DOILE 

GOSUÉ 1100 

PRENT GOLES EN, ZIDZAS> 

LET A=i2LET S=0 

LET N=10:GOSUB 1300:LET A=R-11 
GOSUB I3OOSLET B=rR-ds 

IF ABSIB-80553 OR Aá+E=D THEN 
GOTO 140 

LET T=2:60SUB 1400:605UkB 2800: 
LED ORSZTELET YT 1GO0SUB- 1/00: 
PRINT "HOYOS SHEET ALLE Y 
BOSUB-I7DOTPRENT 4% 

LET X=1+A4+B:LET Y=8-A+Bz 

SOSUB TIODDIPRINTD O" LED. Sr, 
LET R=1ULET. YI GOSUB 17005 
RREME “"ZDG" 7 GOSUB =1DDFLET CA 
LEF XA=IiSLET Y=ISto60sSuUB 1005 
PRINT "ZAG." ¿GOSUB <IOOSLET DA 
LET XSIILET Y=8:LEUT ==. es 

IE €=0 THEN 560710 210 

FOR Nel TO CuBOSUB 1700:PRINT * 
EETI=SX PLE Yer: DOSuE 120 
PRINT O "*"3:B0SUB 1400: MEXT ON 

1E D=D THEN GOTO 230 

FOR MSI TO DuGOSUB 1/7/DOPRINT "3 
LET XEX+FLEOLET Y=Y+FL:iGOSUB 17008 
PRINT "*"¿:GOSUB 1400: MÉEXT ON 
LET X=31 LET Y=14:B60SUBE 17008 
TF AXPC OR EX2D THEN 

PRENT CEALLASTELUSS 

GOTO 150 

PRINF "LAME TISTE 1 

LET T=2:60S5UB 1400 

LET H=H+*1:1F H<10 THEN GOTO 140 
GOSUB 2800: PRINT:PRINT¿ 

PRINT "NECESITASTE."353". JUGADAS" 
PREINTIPRINTE LE S<LS. THEN 

PRINT "UN, CAMPEON? 11" 2:GOTO 340 
IF Si27 THEN 

PRINT "BUEN. JUGADOR. !"z 

GOTO 310 

PRINT "MECESITAS.PRACTICA.!" 
PRINT:PRINT:STOP 


INTRODUCCION 


Mientras estás conduciendo en 
un rally internacional te das 
cuenta de que, al fin y al cabo, 
las carreras dependen de dos co- 
sas: buenos reflejos y gran resis- 
tencia. Sabes que puedes ganar 
cualquier carrera con tal de que 


te mantengas en la pista. Los 
demás pilotos, que no aguantan 
tanto como tú, abandonarán la 
carrera a causa del cansancio. Tu 
secreto consiste en que sabes 
mantenerte alerta durante más 
tiempo que los demás. 

Aquí tienes que mantenerte 
en la pista durante el mayor 
tiempo posible. El ganador es el 
piloto que conduce más tiempo. 
Deberás mantener el coche entre 
las dos vallas usando las teclas X 
e Y para girar a la derecha o a la 
izquierda. La carrera se termina 
cuando te hayas salido de la pista 
10 veces. La distancia que has 
recorrido aparece entonces en la 
pantalla, y en la próxima carrera 
habrás de superar este récord, 


CONSEJOS 


Aprieta suavemente las teclas X e 
Y para girar el coche. Si las 
pulsas demasiado, perderás el 
control, 


VARIACIONES 


Para ser novato, tu primera ca- 
rrera no te fue demasiado mal. 
pero si quieres intentar algo un 
poco más difícil, cambia T=.4 
en la línea 260 por T=.2, y el 
coche irá dos veces más rápido. 


NOTAS DE LINEA 


Líneas 100-120: Definen el área 
de la pantalla e imprimen el títu- 
lo del programa. 


Líneas 130-180: Establecen la po- 
sición de la pista de abajo a 
arriba. 


Líneas 190-200: Mueven el coche 
hacia la derecha y hacia la iz- 
quierda de la pantalla, depen- 
diendo de tus órdenes. 


Línea 210: Imprime el coche en la 
pantalla. 


Línea 220: Imprime la pista en la 
pantalla, 


Líneas 230-270: Calculan la posi- 
ción del coche y si está fuera de 
la pista. Van sumando hasta que 
hayas tocado las vallas diez veces 
y acaban la carrera. 


Líneas 280-330: Te indican la 
distancia que has recorrido y co- 
mentan tu capacidad como con- 
ductor. 


REM CARRERAS DE COCHES 

GOSUE 1100 

LET XA=4:LET Y=D/2:60SUB 17/00 
PRINT "CARRERAS. DE. COCHES" 

2 ¿GOSUE 1400:GOSUB 2800 
B2LET B=10:LET G=0: LEFT 6-05 


LET T= 
LET A= 
(MESE E 
E ¿LET X2=8:LET X3=8: 

PE 

a ¿GOSUB 1300: 

REG AND Al THEN LET A=á-1 

TE RO AND Aax13 THEN LET A=4+1 

LET X=B:LET Y=D-5:BOSUB 1700: 

a 

GOSUE 160D0:1F K$="2" AND B2 

THEM OLET B=B-1 

TE K$="X" AND BX218 THEN LET B=B+1 
LET X=B2LET Y=D-4:605UB6 17005 
FINA 

LET XFAPBLET Y=D=1760SUB 17005 

PAN a 

PRINT 

LET X1l=X20LET X2=X3G2LET X3=X4 

LET Xx4=A4:1 

IE Es AND EXAát+S THEN SOTO 200 

LET Z=50¿GOSUE 24002 

ME 

LET G=u6+12 LET T=.4:1G05UB 1400: 

1 ERALO. TRAEN GOTO 50 

LET T=22GOSUE 1400:G0SUE 2800 
PRENISPRINTE 

PRENT OS HAS. COMPLETADO. “SS TUR$C(6) 
PRINTPRINT "ETAPAS DEL, CARRERA" 
PRINT+3PRINT 

1 34D THEN 

PRINTEC ESINAS.) PROTA E 

SOTO 340 

DR ASEO Oi 

PRINTO OU", NO. ESTA. MáL.PARA."GPREINTA 
PRINTO O“, UN, PRINCIPIANTE! "2G60TO 340 
PRLMT "TOBO. UN ELIT DRALDE. 

PRETO PRI STOP 


JUEGOS DE DIVERSION 


Este juego de squash es un poco 
distinto del normal. Aquí juegas 
sin pareja y no tienes que correr 
de un lado a otro. Sin embargo, 
sólo dispones de una posibilidad 
de ganar. Si cometes un sólo 
error, el juego se acaba y pierdes, 

En el juego ganas un punto 
cada vez que des a una pared 
lateral y dos puntos cuando das a 
la pared del fondo. Los puntos 
aparecen en la pantalla al final 
del juego. Si organizas un cam- 
peonato con algunos amigos, 
ganará quien consiga más pun- 
tos. 

Puedes mover la raqueta hacia 
atrás y hacia delante con las 
teclas X y Z. Aprieta las teclas 
con cuidado; si no, perderás el 
control de la raqueta. 


Puedes aumentar la velocidad de 
la pelota cambiando T=.2 por 
T=.1 en la línea 350. 


Líneas 100-130: Definen el área 
del texto en la pantalla e impri- 
men el título. 


Líneas 140-150: Definen el área 
de la pista y la imprimen. 


Líneas 160-170: Imprimen la ra- 
queta y la pelota en la pantalla, 


Líneas 180-290: Mueven la pelota 
en la pista según el golpe y calcu- 
lan los puntos. 


Línea 300: Te indica si has falla- 
do una pelota. 


Líneas 310-320: Te indican el 
total de puntos y finalizan el 
juego. 


Líneas 330-350: Mueven la ra- 
queta según tus Órdenes. Contro- 
lan la velocidad de la pelota. 


130 


160 


REF SGUASH 

GOSUB 1100:LET P=0 

ELIO SGUASH" 

LET T=2:G05UÉE 14D00:GOSUE 2800 
LEY P=DULET XA=12LET Yelo 
GOSUE 17004 

EERTINTO Uat ot dd ata 
FOR YES VO Lo EL Al; AE a 
PRIME aa LES AS Lore 10D 
NE NA e E 

LET ASaiLET EslarLET X=: 
BÚSUB 1DO03PBRENT 00 aL 
LET D==laLET Ebo 

LED ESIFULE ASEGLET Y=FR 
GOSUB IAS IPRIENT CA 
LET AsfsLET V=B:60SUB 1005 
PRINTD OU. “LED AFAFTCILET BeaB+D: 
LET X=ArLET 
GOSUB 1701 
PRINTS 

IF Ax+17 THEN GOTO 230 

LES Es-1GLET PSrtiiLETD 2-0 

GSOSUE 24D0 

1 AX+2 THEN GOTO 250 

PET EG=L LE PERS LB 2=40 

GOSUB 2400 

IFE Bi2 TREN ECTÓ 70 

LEN Bal ET PePt2a bere: 

GOSUE 2400 

IP Bx14 THEN GOTO 330 

IF ABSCAE- 241 THEN 6070 300 
LEID==punET PrRrranLEN =D 

GOSUB 24D00:1G60TO0 330 

PET X=6G1LET Y=4S6Ó9SUE 1700: 

PRINT "FALLASTE. “cLET Z=2D:3 

GOSUB 2400 

LETOX=4sLET Y=6350S5UE 1700: 

A A O A O! 

LET T=2:1560SUB 1400:GOSUE 2300:STOP 
GOSUB 1600: 1€ k$="2" AND El 

THEN LET E-sE-=1 

1F Kk$="X" AND Ex1l4 THEN LET E=E+1 
LET X=E:LET Y=14:GOSUB 1700: 

PRINT “XXX. “GLET T=.2:6065UB 1400: 
GOTO 180 


[INTRODUCCION] 


Una huelga en los talleres de 
Papá Noel ha liado todos los 
planes de entrega de regalos este 
año. En la última reunión de la 
junta directiva, quedó claro que 
le resultaría imposible a Papá 
Noel visitar cada casa y bajar por 
la chimenea para entregar él mis- 
mo los regalos. 


Así que se sugirió un nuevo 
método de entrega. Este año Pa- 
pá Noel volará bajo y dejará caer 
los regalos en las chimeneas sin 
pararse, confiando en que no se 
produzcan demasiados estropi- 
cios. 

Para mejorar su puntería pre- 
fiere entrenarse primero. Tu tra- 
bajo consiste en ayudarle a mejo- 
rar su técnica de entrega. El pro- 
pósito de este juego consiste en 
dejar caer todos los regalos en las 
chimeneas. Para soltar un regalo, 
tienes que pulsar la barra de 
espacios o el número O (depende 
del tipo de ordenador que uti- 
lices). 

Recuerda que hay diez regalos 
en cada saco, y sólo tienes una 
oportunidad para meterlos en las 
chimeneas. 


[CONSEJOS EN 


Como Papá Noel viaja muy rápi- 
do, tendrás que dejar caer los 
regalos con mucha anticipación 
en las chimeneas, para no pasar- 
te de largo. 


[VARIACIONES Al 


Para ponerlo todavía más difícil, 
puedes aumentar la velocidad del 
trineo cambiando T=.2 por 
T=.1 en la línea 190 del listado. 
¡A ver si eres capaz! 


[NOTAS DE LINEA 


Líneas 100-130: Definen el área 
del texto en la pantalla e impri- 
men el título. 


Línea 140: Posiciona el contador 
para el número de veces que el 
trineo pasa por la pantalla y se 
detiene a la décima. 


Líneas 150-170: Imprimen en la 
pantalla las posiciones de las chi- 
meneas. 


Líneas 180-240: Mueven el trineo 
de un lado a otro de la pantalla a 
una velocidad y altura determi- 
nadas. 


Líneas 250-290: Imprimen en la 
pantalla los regalos y el trayecto 
que recorren. 


Líneas 300-330: Te indican si has 
acertado o fallado y adelantan el 
programa hasta volver a pasar 
por encima de las chimeneas. 


Líneas 340-380: Imprimen men- 
sajes en la pantalla que indican a 
los jugadores cuántas veces han 
acertado y opinan sobre el grado 
de competencia de los jugadores, 


100 
110 
120 
130 
140 
150 


150 
170 


130 
120 


200 
210 


220 
230 
240 
250 
260 
270 
280) 
290 
300 
310 
320 
3.30) 
341) 
350 
3060 
370 
330 


390 


REM NAVIDAD 


GOSUB 1100:LET H=0 

PRINT “au... .. NAVIDAD" 

LET T=2:G0SUB 1400 

LET H=0:FOR S5=1 TO 10:605UB 2800 
LET X=21:ILET Y=14:G60SUB 1700: 
PRINTER 

LET N=10:G0SUB 1300:LET R=R+4 


LET X=RIFOR Y=12 TO 14:GOSUB 1700: 


PRINT "*. "¿NEXT Y 

LET A=0:LET B=1:LET P=0 

LET T=.2:G0SUB 1400:LET A=A+1: 
LET X=A:1LET Y=B:GOSUB 1700: 
PRINT "qx" 

IF O X=17 THEN GOTO 310 

IF P=1 THEN GOTO 250 

GOSUE 1600: 1F K$<>"." THEN 
GOTO 240 

LET P=1¿LET C=A:LET D=BiLET N=1 
GOTO 190 

LET C=C+1:LET D=D+M:LET N=N+14 
LET X=C¿LET Y=D-1:GOSUB 1700: 
PRINT "+"; 

IF (X=R OR X=R+3) 
GOTO 310 

IF YX14 THEN GOTO 190 

IF OX=R+1 OR X=R+2 THEN GOTO 300 
GOTO 310 

LET X=8:LET Y=5:GOSUB 1700: 
PRINT "METIDO! “¿LET H=H+la 
GOTO 320 

LET X=6:LET Y=5:G0SUB 1700: 
PRINT "FALLASTE.!" 

LET OT=2:GOSUB 140D0:NEXT S 

ET OT=2:GOSUB 1400:G0SUB 2800 
PRINT¿PRINT:PRINT "METISTE.“; 
STR$(H) 3". REGALOS" 
PRINTIPRINTS 

PRINT "DE.LOS.10.QUE HABIA": 
PRINT,¿PRINT 

IF O H34 THEN GOTO 380 


AND Y>11 THEN 


PRINT "POCOS. REGALOS .ESTA.NAVIDAD!": 


PRUNT or QUES PENA? GOTO 391 
PRINT "PIDE.TRABAJO.EN"2¿PRINT> 
PRENT UE. POLO. MORTE: 1" 
PRINTIPRINTIPRINTESTOP 


Te han abandonado en un ran- 
cho del Amazonas que pertenece 
al gran cazador loco, el Conde 
Monstruo, el cual sólo se divierte 
cazando presas humanas. Luego 
de soltarte en el rancho y de 
darte medio día de ventaja, envía 
a cuatro esclavos zombis en tu 
busca. Tienes que cobrevivir por 
encima de todo. 

El rancho está rodeado por 
una selva impenetrable y además 
hay muchos terrenos de arenas 
movedizas. Sólo puedes salvarte 
atrayendo a los zombis (Z) hacia 
las arenas movedizas sin caer tú 
en ellas, 

Con una (H) se indica tu posi- 
ción en el rancho. Puedes mover- 
te pulsando las teclas del 1 al 9. 
Las flechas del diagrama mues- 
tran la dirección que seguirás 
según cada número. Si tecleas el 
número 5, te quedas en el mismo 
lugar. 


| a 
co | U NN 
sol € | Ga 


REM. ZONBTS 
fustl  100 
PRINT 


PRINT:+PRINT 
OR I=1 TO 


LET X=G 
GOSUE 1 


Los zombis siempre avanzan ha- 
cia ti en línea recta, y no se dan 
cuenta de que las arenas movedi- 
zas son peligrosas. 


Líneas 100-130: Definen el área 
del texto e imprimen el título en 
la pantalla. 


Líneas 140-160: Imprimen el área 
del rancho donde tú y los zombis 
os podéis mover. 


Líneas 170-210: Muestran las po- 
siciones iniciales de los zombis. 


Líneas 220-240: Imprimen las 
arenas movedizas elegidas aleato- 
riamente, 


Línea 250: Imprime tu posición 
inicial, 


o ONES 
LET T=2:GOSUE 1400: GOSUE 
EEN 


2800 


Líneas 260-280: Registran tus 
movimientos. 


Líneas 290-370: Comprueban tu 
nueva posición y te indican si 
estás en arenas movedizas, si te 
has perdido en la selva o si te 
han capturado los zombis. 


Líneas 380-460: Mueven los zom- 
bis según tus movimientos para 
acercarse a ti, 


Líneas 470-490: Te indican que 
has ganado y que el juego se 
acabó. 


MEXT 1 

LET N=16:GOSUB 1300:LET A=R+1: 
EETON=LSBGOSUB dd SDOSILET E=R+FTE 
LET X=A:LET Y=B 

GOSUB 17/ODSPRINT SH ner Nk 
GOSUB 1500:GOSUB 31002 

LET 6=66-48: 

TEIBELCOR IG? THEN GOTO-270 
LET X=4: LET Y=B:6050e8 17/0085 
PRINT “5 


LET D=INTÍU(G-4)/3):LET C=G-3xD-5 


LET Azá+rCiLET E=B+D 

IF 4=1 OR A=18 OR E=1 OR B=15 
THEN GOTO 3.20 

GOTO 330 


LET M$="TE.HáS. FERDIDO.EM.LA.SELVA": 


GOTO 480 
LETE=08 FOR ld 10 8 
PE As 1) AND B=0 (1,2) THEN 
MEXT Elk ESL REN 
LET ME="ARENAS.MOVEDIZAS": 
IF F=1 THEN GOTO 480 
un I=1 TO 4:1F Aá=2(1,1 AND 

Z 2 REN EETTE=1 
A IEA 
Mé="TE.HAN.ATRAPADO a 

Il OT G 481 

sd A (=E:65 


5 58 1400. 


31, THEN GOTO 430 Ñ 


A > 
TF xZA AND vZB THEN 
LET Me= "COGIDO!" 
soto 480. 

cs 
270 
E 

UB 17002 
¿GOSUB 2800: 


3 


IO 
3UB 2400 


po 


Esta es una buena ocasión para 
impresionar a tus amigos ganan- 
do a tu ordenador en una prueba 
de agilidad mental. El ganador (o 
sea, tú) será el primero que adivi- 
ne el último dígito que aparecerá 
en la cima de una pirámide de 
números. 

Hay que introducir diez dígitos 
en la línea inferior de una pirá- 
mide. Cuando empieza la carre- 


ra, se suman cada pareja de nú- 
meros para dar los dígitos de la 
segunda línea. Por ejemplo, a la 
izquierda del diagrama se suman 
los números 1 y 8 para dar 9 en 
la línea superior. 

Si el resultado de la suma es 
un número con más de un dígito, 
tendrás que sumar los dos dígitos 
e introducir el resultado en la 
casilla. Por ejemplo, 6 y 7 hacen 
13. Puedes entonces sumar 1 y 3, 
e introducir 4 en la casilla vacía. 

Para demostrar tus poderes 
“sobrehumanos” de cálculo, carga 
este programa y haz una prueba 
delante de tus amigos. Utiliza 
cualquier serie de dígitos en la 
línea inferior. Diles a tus amigos 
que vas a competir contra tu 
ordenador en una prueba de agi- 
lidad mental. 

La próxima vez deja que uno 
de tus amigos introduzca los diez 


dígitos, uno a uno. Cuando tú 
quieras, podrás dejar a todos bo- 
quiabiertos ganando sin proble- 
mas a tu ordenador. Puedes ha- 
cerlo del modo siguiente: 

Cuando tu amigo introduzca 
los diez dígitos iniciales, recuerda 
el cuarto y el séptimo empezando 
por la izquierda (en el diagrama 
el 2 y el 7). Súmalos (te dan 9) y 
multiplica el resultado por tres 
(que te da 27). Ahora coge los 
dos números que hay en los ex- 
tremos de la línea de abajo (en 
este caso el 1 y el 8) y súmalos al 
resultado que conseguiste antes 
(te da 36). Ahora suma el 3 y el 
6, y te da 9. Este es el último 
número de la pirámide. 

Que no parezca demasiado fá- 
cil. Por ejemplo, pide a tus ami- 
gos que comprueben los números 
que han introducido (esto te per- 
mitirá acabar tus cálculos). 


siones de un diagrama para que 
contenga diez variables. 


Líneas 120-200: Imprimen la for- 
ma de la pirámide. 


Líneas 210-270: Te piden que 
introduzcas los diez dígitos y lue- 
go los imprimen en la línea infe- 
rior. 


Líneas 280-290: Comienzan la ca- 
rrera. 


Líneas 300-370: Suman cada par 
de dígitos e imprimen el resulta- 
do en la línea superior hasta 
llegar a la última casilla de la 
pirámide. 

Líneas 380-400: 


Imprimen un 


mensaje en la pantalla y acaban 
el programa. 


EL ATAJO 


(1) Suma los dígitos de las casillas 
4y7 
(2) Multiplica el resultado por 3 
(3) Suma los dígitos de las casillas 
1 y 10 al resultado de (2) =36 
(4) Suma los dos dígitos del 
resultado de (3): ya tienes el 
resultado final =9 


REM PIRAMIDE 
DIM OX (10) 
BOSUB 1100 
LETON=D+LET 
FOR L=1 TO 
FOR A=C TO 
LETOX=A4LET 
PRINT 0," 
NEXT A 

LET C=C-1 
LETON=N+2 


C=9 
10 

C+N STEP 2 
Y=L.:50SUB 


700% 


200 MEXT L. 

2D ET ASORLET Y= BOS UEITOD 
PRENT TNTROBUCE TD DEE TOS 

22d FOR N=1 TO 10 

30 GOSUB TSODREETORS-ES ET PA 
GOSUE 2700:LET Y=A4-48 
LE YO OR YR2 THEN GOTO 230 


E $ 1 


PRINT ES; 


270 NEXT ON 

280 LET X=0:LET Y=14:G0SUB 1700: 
PRINT "PULSA.S.PARA.EMPEZAR" 

290 GOSUB 1500: 1F 6$<>"S" THEN 
GOTO 290 

300 FOR L=9 TO 1 STEP -1 


LET T=2:B0SUE 
FOR N=1 TO L 
LET O XCON) =X 0D) +X Oia 

TE ANO 27 CHEN 

LETOX ONO =xX ON) GH INT COX 0N3 10) 

LE ASS t2n ED Yell BOSte 1/00 
PRINTS XA UNO 

NEXT ON 

IES 

LET X=0:LET Y=14:G05UB 1700 

PRINT “EL. RESULTADO. FIMAL.ES. “5XC1) 
4 STOP 


1400 


2) La princesa pasa por la cel- a 


da donde está el monstruo. Y 
3) Los dos se encuentran en la A pun 
misma celda. Do An 
Por ejemplo, si la princesa eli- 4 
un 
ge una celda para ella y nueve ñ ES 
, a TT 
para el monstruo, perderá inme- alo 
diatamente, ya que entraría en la | 00/00/0000 0009/90: 981 
salda $ a leds a h E 
celda superior, y él La a i EPA 
misma en su primer movimiento, 
misma pim FERRER 
sí que ésta no sería una buena A AN E RS 
decisión ¡ ON E J 
Ed : , 177] CMT] 
INTRODUCCION Si tú pudieras ayudarla, ¿qué ll AO be 
EA os E e 


En las profundidades del castillo | números le aconsejarías que eli- 


de un mago malvado se encuen- | giera? NÁ 
tra prisionera una princesa. El hi 
torreón, como puedes ver en el > Ruta del monstruo 
diagrama, tiene 81 celdas, que se > Ruta de la princesa 


comunican entre sí de la manera 
indicada en el plano. Hay tam- 
bién cuatro puertas que dan al 
exterior: A, B, C y D. 


Al empezar, la princesa está en 100 REM TORREON 
la puerta D. Para escapar, tiene 110 DIM M(100) 
que ir en zigzag por todas las 120 DIM (6 (100) 
celdas y salir por la puerta C. El 130 GOSUB 1100 
mago le ha prometido dejarla en 140 FOR I=0 TO 4 
libertad si consigue salir de esta 150 FOR J=1 TO 9 
prueba sana y salva. 160 LET Q(18*1+J) =90+,J-20+*1 
Sin embargo, mientras recorre 170 LET Q4(18*1+J+9) =920-J-20%1] 
las celdas, un monstruo horrible 180 LET M(18x*I+J)=2*1+10%J+1 
también las recorre por su parte, 190 LET M(18x*1+3J+9)=2x*1-10* J+10%2 


sólo que entrará por la puerta A 200 NEXT J:NEXT 1 
y saldrá por la puerta B. El [| 210 LET x=0:LET Y=2:GOSUB 1700 


monstruo también irá en zigzag, MO PRINT OU 

pero formando ángulos rectos 230 FOR M=1 TO 9 

con la princesa. 240 PRINT ". +++ e" 
Para dar a la princesa una 250 NEXT N 


posibilidad de escapar, el mago 240 PRINT ". ARARAAARRR 
ha decidido que tanto la princesa 270 LET PTSD:LET MT=0 
como el monstruo recorrerán en 280 LET X=0: LET Y=14:G05UB_ 1700 
ls des e purita oe 290 PRINT"INTRODUCE .MOVIMIENTO. DE. PRINCESA" 
Des pus pacien de det 20D La 300. GOSUE ISDOLLEF RSS LETIP=S1L: 
79 > dd 2 Es ny ES Dd ÉL 
princesa se mueve primero, luego E po e de A o Nerd bid E 
el monstruo, y así hutatá que se 310 IF Gi OR (029 THEN G0TO 300 
escape o el monstruo la capture. mel Bus sn e a | 
La princesa pierde dí PRINT" INTRODUCE. MOVIMIENTO. DE. MONSTRLIJO" | 
1) El monstruo, cuando le to- 340 BOSUB 1SOD+LETIRS=6$:LET P=tax 
GOSUE 27D004LET M=A-48 


ca a él, pasa por la celda en : 
la que se encuentra la prin- | AI 


cesa. 


CONSEJOS 


De los 81 movimientos posibles, 
sólo 21 de ellos permitirán que la 
princesa escape. 

Recuerda que la princesa no 
debe nunca dejar que el mons- 
truo recorra tres celdas, porque 
la capturaría independientemente 
del número de movimientos que 
ella hiciera. 


NOTAS DE LINEA 


Líneas 110-120: Establecen el dia- 
grama que contiene los movi- 
mientos del monstruo y de la 
princesa en el torreón. 


Líneas 140-200: Almacenan las 
ubicaciones de cada una de las 
celdas del torreón. 


Línezs 210-260: Imprimen el pla- 
no del torreón en la pantalla. 


Líneas 270-280: Definen los valo- 
res iniciales de las posiciones de 
la princesa y del monstruo. 


Líneas 290-340: Introducen los 
movimientos de la princesa y del 
monstruo, 


Líneas 350-470: Controlan los 
movimientos de la princesa. 


Líneas 480-580: Controlan los 


movimientos del munstruo. 


Líneas 630-690: Rutina que im- 
prime en la pantalla el mensaje 
de victoria. 


Líneas 700-750: Rutina que im- 


prime en la pantalla el mensaje 
de derrota. 


Respuestas en la página 116 


LET X=DsL, 
PRINT "LO. 


GOSUE 1700: 
PRINT "AHORA.EMPIEZAN. A. MOVERSE" 
LET T=1:GOSUB 1400 
GOSUB 17005 
PRINO 
LET R=O:LET B=0 
LET QY=QiLET G6x=1 
LET MY=LSLET Mx=1 
FOR G=1 TO Q 
EET PT=PT+1:2LET T=.d GOÓSUB 1400 
TF. PT+81. THEN GOTO 430 
ET IG=TNTCQ CPT 
QUITA 1UIE 
¿XA LET Y=G0Y+2:GOSUB 1700: 
. o , 
a EST Walt SOS: 1700 


iS 
T 


a 

Y 

y 

IN 

LA 

INT 
MY =L, AÑD Mx=C THEN GOTO 700 

T QY=L 

SA 

cl 

R 

17% 


y 


MIGOSUBE 1400) 


pb 
Y=MY+ 2 MOSUB 1700: 
IET E Y=K+F22BOSUB 1700 
PRE nr OR E 
ES EQ dE 2 THEN 507 


E 200 


PRIM T Mz NHOR 
PR INT PRIAMUT 
PARA" 
p RINTa PR REL "LA. PRLMCEDAOS Y 
PARA 
2 IAT 


STRUJO HA. FUNCIONADO" 
OP 


14001 G05UE 1200 
O: 


PRINT:PRINT > 

PRINT:PRINT “EL MONSTRUO. A bRÁrÓ. o 
PRINT:PRINT"A.LA.PRINCESA!" 
PRINTISTOP 


Los cuatro miembros de la Socie- 
dad de Sumas se reunieron una 
tarde. Cada uno de ellos presentó 
a los otros tres un problema. 
¿Cuántos puedes resolver? 


El problema de Basilio Byte 
—Tengo un papel —dijo Basi- 
lio— donde está escrito un nú- 
mero que es un cuadrado de 
cuatro dígitos. Si corto el papel 
por la mitad, me queda en cada 
trozo un cuadrado de dos dígitos. 
Por ejemplo, si tuviese escrito 
3481 (el cuadrado de 59), cuando 
dividiera el papel, me quedarían 
por un lado 81 (que es el cuadra- 
do de 9) y 34, que no es ningún 
cuadrado, 

Si ninguno de los dígitos es 
cero, ¿cuál es el número del 


papel? 


El problema de Carmen Cubo 
—Yo también tengo un número 
de cuatro dígitos —dijo Car- 
men—, Si lo multiplico por sí 
mismo, el resultado, que tiene 
ocho dígitos, acaba con los cua- 
tro del número original. ¿Cuál es 
ese número? 

Resolverás más fácilmente el 
problema de Carmen si pruebas 
todos los números de cuatro dígi- 
tos del 3163 al 9999 (los cuadra- 
dos de los cuales tienen todos 
ocho dígitos). El ordenador tar- 
dará algunos minutos en com- 
probar todos estos números. 


El problema de Dario Digito 

El otro día me di cuenta de que 
la edad de mi mujer es la misma 
que la mía, con los dígitos inver- 
tidos. Además la suma de nues- 
tras edades es once veces mayor 
que su diferencia. Yo soy mayor. 
¿Cuál es nuestra edad? 


El problema de Ernesto Euclides 
—Mi hijo mayor acaba de exa- 
minarse en el colegio —+explicó 
Ernesto—, Tuvo que hacer tres 
exámenes, cada uno de ellos con 
100 preguntas. Le prometí 11 
pesetas por cada respuesta co- 
rrecta, pero él tendría que darme 
14 por cada una que fallara. 

Después de los exámenes, des- 
cubrimos que yo le debía tanto 
como él a mí. 

¿Cuántas respuestas acertó y 
cuántas falló? 


Basilio 

Líneas 120-140: Generan un nú- 
mero de cuatro dígitos de los 
cuales el primero y el segundo, y 
el tercero y el cuarto, forman dos 
cuadrados. 


Líneas 150-160: Comprueban es- 
te número para ver si es un 
cuadrado perfecto. 


Líneas 170-180: Comprueban los 
valores restantes de B y A en 
busca de otra respuesta posible. 


Carmen 

Líneas 120 y 140: Multiplican al 
cuadrado los números de cuatro 
dígitos entre 3163 y 9999, 


Línea 130: Imprime un mensa- 
je en la pantalla para informarte 
que el ordenador está probando 
todos los valores posibles (esto 
lleva algo de tiempo). 


Líneas 150-160: Cuando encuen- 
tran un valor cuyos cuatro últi- 
mos dígitos forman el número 
inicial, imprimen la respuesta en 
la pantalla. 


Línea 170: Comprueba el siguien- 
te número de cuatro dígitos. 


Línea 180: Finaliza el programa. 


Dario 

Líneas 120-150: Introducen valo- 
res para los dos dígitos de las 
edades de Darío y su mujer. 


Líneas 160-180: Calculan la suma 
y la diferencia de las dos edades 
y comprueban si la suma es 11 
veces mayor que la diferencia. 
Imprime los valores que coinci- 
den al llegar a la línea 160. Luego 
comprueban los otros valores po- 
sibles. 


Ernesto 

Líneas 120-140: Encuentran, para 
cada valor de respuestas correc- 
tas (R), el número correspon- 
diente de respuestas equivocadas 


(W). 


Línea 130: Imprime un mensaje 
que te indica del número que el 
ordenador está comprobando. 


Líneas 150-160: Si la cantidad 
adecuada por el número de res- 
puestas correctas es la misma 
que la cantidad por respuestas 
equivocadas, imprimen el resul- 
tado correcto, 


Línea 170: Comprueba el siguien- 


te valor del número de rspuestas 
correctas. 


LISTADO 


REM BASILIO 

GOSuUBE 1100 

FOR á=4 TQ 9 

FOR Ex4 TO 9 

LET C=100*A4x*4+Bx%E 
LET D=SQR (C) 

1F ABS(D-INT(D))<.001 THEN 
PRIMT SE 

NEXT E 

MEXT A 

PRINTISTOP 


REM CARMEN 

GOSUB 1100 

EOR D=3L63 TO 99377 

LET X=22LET Y=4:G0SUB 1700: 
PRINT "COMPROBANDO, "51 

LE. J=TeT 

LET Kk=J-10000* INT. (110000) 
LF RSE EREM PRI Dd 

NEXT 1 

PRENT=<SDO0P 


REM DARIC 

GOSUBE 1100 

FOR á=0 TO *% 

FOR E=0 TO 9 

LET C=10x*4+B 

LET D=slO*B+A 

IF C+D=11*(C0-D> THEN 
PREMIOS. EDADES SOMS Lo alado 
MEXT E 

NEXT A 

PRINT:STOP 


REM ERNESTO 


SOSUB 1100 
FOR R=0 TO 300 

LET X=0:LET Y=6:GOSUB 1700: 

PRINT "COMPROBANDO."¿R 

LET W=300-R 

IF 11*R<>14*W THEN GOTO 170 
PRINT:PRINT"CONSIGUIO." 

¡¿Ri" CORRECTAS": 

PRINT:PRINT "Y."¿W3". INCORRECTAS": 
PRINT:STOP 

NEXT OR 


Los números primos son una de 
las curiosidades de nuestro siste- 
ma numérico cuya naturaleza 
imprevisible ha intrigado a los 
matemáticos durante miles de 
años. ¿Ves la diferencia entre los 
números primos y los que no lo 


fácil si te imaginas que tienes que 
repartir 14 monedas. Puedes divi- 
dirlas entre dos personas, y cada 
una recibiría siete monedas, o 
puedes dividirlas entre siete per- 
sonas, de manera que le tocan 2 
a cada una. Sin embargo, si sólo 
tuvieses 13 monedas (un número 
primo) no podrías  dividirlas 
exactamente. Recuerda: siempre 
tiene que haber más de una per- 
sona entre quién repartirlas, y 
siempre tienen que tocar a más 
de una moneda por persona. 
¿Cómo podemos pues saber si 
un número es primo? Desgracia- 
damente, no hay manera de sa- 
berlo, excepto a base de intentar 
dividirlo por varios números. 
Podemos sin embargo eliminar 


primos. Sin embargo, cuanto 
mayor sea el número, más lento 
será el proceso para encontrar- 
los. Pero funciona bastante bien 
para números hasta algunos mi- 
les, 

Con la ayuda del programa, 
intenta encontrar la solución de 
los problemas siguientes: 


1) ¿Cuántos números primos 
hay entre 1 y 100? 
2) ¿Cuántos números primos 


hay entre 100 y 2002 ¿Cuántos 
entre 300 y 400? ¿La cantidad de 
números primos crece, disminu- 
ye o es la misma para cada una 
de las series? 

3) Los cinco números primos 5, 
11, 17, 23 y 29 tienen todos una 
diferencia de 6 entre ellos, ¿Pue- 


son en las tablas que hay aquí? 
Los números de la izquierda son 
primos. No se pueden dividir 
exactamente por ningún otro nú- 
mero entero, excepto por ellos 
mismos y por uno. Por otra par- 
te, los números compuestos (que 
es el nombre que se da a los 
números que no son primos) se 
pueden dividir por números ente- 
ros más pequeños. Por ejemplo, 
14 se puede dividir por 7 y 2. 
Para comprender esto, es más 


algunos números antes de empe- 
zar. Es obvio que un número par 
no puede ser primo, ya que se 
puede dividir por 2. La única 
excepción es el 2, que es el único 
número primo par que existe. 
Del mismo modo, los números 
que acaban en 5 se pueden divi- 
dir por 5. Así que también pode- 
mos eliminar éstos. 

Este programa te comprobará 
todos los números hasta un mi- 
llón para encontrar los números 


des encontrar otros 10 números 
primos con una diferencia co- 
mún entre ellos? (El menor es 
mayor que 100 y la diferencia 
entre ellos es más de 200.) 

4) ¿Es el año 1983 un número 
primo? ¿Cuál fue el último año 
primo? ¿Cuál será el próximo? 
5) Hasta este año, ¿cuál es el 
intervalo más largo de años con- 
secutivos que no sean primos que 
puedes encontrar? Por ejemplo, 
había un período de 18 años 


consecutivos desde 1913 (primo) 
hasta 1931 (primo) cuando nin- 
gún año era primo, aunque se 
pueden encontrar períodos más 
largos que éste. 

6) ¿Cuántos números primos 
puedes encontrar que sean palín- 
dromos (es decir, capicúas)? 

7) ¿Cuál es el número primo 
más alto por debajo de un mi- 
llón? 


NOTAS DE LINEA 


Línea 110: Establece una dimen- 
sión de 200 espacios que pueda 
contener números primos hasta 
1000. 


Línea 120: Establece el área de la 
pantalla. 


Líneas 130-150: Imprimen men- 
sajes en la pantalla, mientras el 
programa comprueba todos los 
números hasta 999 para encon- 
trar los primos. 


Líneas 160-230: Almacenan todos 
los números primos hasta 999 
para futura referencia en el pro- 
grama. 


Línea 210: Imprime el número 
que se está comprobando. 


Líneas 220-230: Examinan todos 
los números impares hasta 999, 


Líneas 240-250: Te piden que 


introduzcas un número. 


Líneas 260-290: Comprueban que 
sólo los números entre uno y un 
millón son válidos. 


Líneas 300-330: Te indican si el 
número es primo o no. 


Líneas 340-410: Subrutina para 
comprobar si un número es pri- 
mo O no. 


| Respuestas en la página 116 | 


100 
111) 
120 
130 


140 
10 
1460 
171) 
130 
150 
200 
210 


20 
dE) 
24D 
290 
260 
70 


280 


290 
300 


33140) 


320 
330 
340 
330 
3601) 
370 
380 
390 


400 
410 


REM PRIMOS 

DUNA PC) 

GOSUE 1100 

LET XA=0:LET Y=10:560SUB.- 1700 
PRINT "TRABAJANDO" 

LET MP=23LET PCO)=2LEl POIS 
LET N=3 

GOSUE 340 

LE ESO THEN GOTO 220 

LET T=.2:15605SUB 1400 


LET NP=NP+1 
LET PCNP)=N 


PRINT ¿N 


LET O RMubirz 
LF NXAIQOO THEN G60TO 160 
LE OSOS LET Y=LOSGOSUB 1700 


PRINTS EMTRODUCE-TU)MUMERO: * 
GOSUE 2100:LET N=k 

IF N=0 THEN PRINT:STOP 

EF NET OR N*+9929999 (OR NA*INT UN) 
THEN PRINT "MUMERO,NO.VALIDO": 
PRINTI60TO 250 

GOSUE 340 


IF OF=O THEN PRINT: 
PRINT "ES.PRIMO":GOTO 320 
PRINTIPRINT “=."GFp". XX." GN/F: 


PRENTESPRINTOVSINO ES PREMO" 
PRINT 
PRINT:GOTO 
LET F=0 
LET S=5SGR (N) 

FOR I=1 TO NP 

IF PCS THEN LET I=NP:GOTO 400 
LETAR=N ARI 
IF R=INTCR> 
LET I=NP 
NEXT 1 
RETURN 


Ms ¿E 


THEN LET F=R: 


Bob, Otto y Ana son sólo tres de 
los miembros de un club muy 
especial. En cambio, Juan, Pablo 
y Carmen no lo son. ¿Sabes por 
qué? 

Quizás si te dijeran que el club 
se llama «Club de los Palíndro- 
mos» lo entenderías. Los nom- 
bres de todos los miembros son 
palíndromos (es decir, que se 
leen igual de derecha a izquierda 
que de izquierda a derecha). 

Claro que te darías cuenta de 
esto si escuchases las conversa- 
ciones en las reuniones del club. 

—Ana lava lana. 

—Amor a Roma. 

—Dábale arroz a la zorra el 
abad. 

¡Anilina y oro son no Soro- 
ya ni Lina! 

La verdad es que cualquier 
tipo de palíndromos interesa al 
club. En la última reunión, por 
ejemplo, se discutieron los palín- 
dromos numerales. 

—Un número es un palíndro- 
mo —dijo Bob— si es capicúa. 

Hizo una pausa y añadió: 

—Tengo aquí dos problemas 
para resolver. Uno de ellos es 
para Otto, y el otro para Ana. 

—Lo que quiero que hagas 
—le dijo a Otto— es encontrar 
los tres palíndromos más peque- 
ños que sean cuadrados perfectos 
pero que no tengan una raíz 
cuadrada que sea también un 
palíndromo. 


—+¿Y qué es un cuadrado per- 
fecto? —preguntó Otto, 

—Un cuadrado —contestó 
Bob— es el resultado que se 
obtiene cuando multiplicas un 
número entero por sí mismo, Por 
ejemplo, 121 es el cuadrado de 
11. Además es un palíndromo, 
así que no es la respuesta que 
buscamos. 

—Ana —continuó Bob—, tú 
tienes que encontrar el cuadrado 
perfecto más pequeño con un 
número par de dígitos que sea 
también un palíndromo. 

Afortunadamente, los dos te- 
nían acceso a un ordenador y 


REM PALINI 
GOSUB 1100 
LET C=0 


LET ZL=11 


pronto encontraron las solucio- 
nes. 

Los dos programas necesitan 
una subrutina para comprobar 
que un número es un palíndro- 
mo. Esta subrutina toma un nú- 
mero N, y si es un palíndromo, 
define un valor de T=1. Si no lo 
es, entonces T'=0. La misma su- 
brutina sirve para los dos proble- 
mas. 


LET X=0:LET Y=6:G60SUB 1700: 


PRINT "COMPROBANDO."3Z 

190 LET Mezez 

160 GOSUB 260 

170-155 Tel TREN GOTO 230 

180 LET N=2Z 

190 GOSUE 260 

00 1 T=L THEN GOTO 230 

210 LET C=C+ 

220 PRINT<PRINT "NUMERO.=."yZ: 
PRINT:PRINT “CUADRADO. =." y ZazZ 

Pa LED Ll 

240 IF CX<3 THEN B0TO 140 

230 PRINTESTOP 

260 REM COMPROBAR PAL INDROMO 

270 LET A = N 

200 LETS =00 

290 LET Al=INT (4/10) 

300 LET E=10*E+4-10+41 

310 LET Az=ál 

320 16 620 THEN GOTO 290 

330 LET T=0 

340 IF B=N THEN LET T=1 

330 RETURN 


a e 


Palin 1 
Línea 110: Define el área del 
texto en la pantalla. 


Línea 120: Define el valor inicial 
del contador para los tres palín- 
dromos más pequeños. 


Línea 130: Define el valor inicial 
de los números que tiene que 
comprobar. 


Línea 140: Imprime el número 
que está comprobando. 


Línea 150: Encuentra el cuadrado 


100 
O 
120 
130 
140 


REM PALIN 

GOSUE 1100 

LET Li=10s 

LET Q=4 

LET X=O03LET 
PRINT 
LIO ME 
150 
170) 


N=Q%Q 


IF ONP=L2 
LET 
180 GOSUB 
190 1F T=1 
PRINT 


Ll) 


PRINT 
LET Q=QG+1 
GOTO 140 


REM 
ET 
EN 
IED 
Er 
ET 


A=N 
B=0 
Aal=INT (4/10) 


á=A1 


IF AD THEN GOTO 


LET T=D 


1F NXLd THEN GOTO 


del número que está comproban- 
do. 


Línea 160: Envía el programa a 
una subrutina. 


Líneas 170-230: Si el número no 
presenta las características de un 
palíndromo, envían el programa 
al siguiente número, 


Líneas 180-190: Comprueban si 
el número es un palíndromo. 


Línea 200: Si encuentra un palín- 
dromo, el programa sigue com- 
probando números hasta que ha- 
ya encontrado los tres. 


LEN Les t0B 


Y=6:GOSUB 1700: 
"COMPROBANDO. "50 


200 


EHEN LETAL D=uODeL-1: 
L2=100*L2:60TO 


200 


SEHEN PRENTE 
"NUMERO. =."3G6:PRIMNT: 
"CUADRADO . 


"GMNEPRINTSSTOP 


COMPROBAR PAL IMEBEROMO 


B=10x*BE+4-10%*41 


¿31 


IF E=N THEN LET T=1 


RETURN 


Líneas 260-350: Subrutina para 
comprobar si un número es un 
palíndromo o no. 


Palin 2 
Línea 170: Define el área del 
texto en la pantalla. 


Línea 120: Define los límites de 
los valores iniciales de cuadrados 
perfectos. 


Línea 130: Define el valor inicial 
de los números que está compro- 


bando. 


Línea 140: Imprime el número 
que está comprobando. 


Líneas 150-170: Encuentran el 
cuadrado del número que están 
comprobando. 


Línea 180: Envía el programa a 
una subrutina. 


Línea 190: Imprime un mensaje 
cuando ha encontrado la res- 
puesta correcta. 


Líneas 200-210: Añade uno al 
valor del número que comprueba 
y repiten el procedimiento. 


Líneas 220-310: Subrutina que 
comprueba si el cuadrado es un 
palíndromo. 


INTRODUCCION 


La finalidad de este juego consis- 
te en invertir el orden de las seis 
cifras del contador en el menor 
número de jugadas posible, y 
dejando la casilla vacía siempre 
en la esquina izquierda del conta- 
dor. 

Cada cifra se puede mover de 
dos maneras diferentes. Si una 
casilla contigua está vacía puede 
“pasar” a este espacio. Por otra 
parte, una cifra puede “saltar” 
sobre otra cifra y pasar a una 
casilla vacía contigua a ésta, 

Tomando el diagrama inferior 
como ejemplo, al principio del 
juego sólo hay una opción. Pue- 
des mover el 6 al espacio vacío, o 
bien el 5 puede saltar sobre el 6 y 
pasar a la casilla vacía. 

Puedes mover las piezas de un 
lado a otro tantas veces como 
quieras. Sólo tienes que pulsar el 
número de la casilla que quieres 
mover y pasará automáticamente 
a su nueva posición, con tal que 
la jugada sea válida. 

Si te das por vencido pulsa “S 
y el ordenador acabará de jugar, 
enseñándote cómo podías haber 
acabado. 

Cuando hayas jugado algunas 
veces, deberías poder jugar tan 
bien como el ordenador. 


E 
AAA 
ES 


a 
QU e A ió tó 


hd 
un 
DO 


X=0:60€ SUE DIS. 
SS. PARA. SOLLUICTON" 


LET tele =D DOSoB 1700: 
PRINT "PULSAa.TECLAS,.1.4.60" 
LETOX=0LET Y=10:508UB 17002 
PRONTO Uat ae ae e 

GOSUE 1500 

TEBAS THEN GOTO 6390 

LET O Ré=B%4:LET P=1:¿GOSUB 2700: 
LEN == 43 EX OR B6 TEEN 
DOTO 12310 

FOR E=x1 TO C+l 

IF G=X(B) THEN LET  QG=B 

IE XC(E>=0 THEN LET R=B 


(O=RIXZ3S THEN GOTO 330 
LET XA=D:LET Y=10:GOSUB 1700: 
PRINT "JUGADA.NO. VALIDA" 

LEFT T=>S¿GOSUE 1A4DONGOTO 20 

LET xX(Q=0 

LET X(R)=G 

GOSUB 380 

GOTO 220 

REM IMPRIME TABLERO 

LET X=0:LET Y=4:GOSUB 1700: 

PRINTS 

LET Y=G:+GOSUB 170085 


NO 
GOSUB 380 


PRINTO UR A 
LET Y=5:G0OSUB 1700: 
RRENT Pa Y 


EJ 


410 FOR N=1_TO C+1aLET X=2%M: 
GOSUE 1700 

IF X(MI20 THEN LET R=X(N)-16: 
GOSUE 25D00:PRINT Re; 

430 NEXT Mi¿FOR X=1 TO 15 STEP2: 


GOSUB 1700: PRINT "e"; 

440) NEXT_X 

450 LET ZZ=2Z4+1:LET F=0 

460 FOR N=1 TO C+1 

470 1 X(0) <» N=1 THEN LET F=1 
480 NEXT ON 


43790 IF F=1 THEN RETURN 

200 15 es SS. REM. PARTNDO: 
PRIUNT "VO =<SOLO MECESTTES: 
Lis JUGADAS": 


GOTO 3:30) 
JO LET ASUMLETL Meteo EOSUB ADOS 
PRINT "ENHORABLIENA ! 1" 


120 PRINTIPRINT E MECESTTASTE. 
" JUGADA z 

530 LET X=0:LET Y=15:BG0SUE LO 

IAS TOP 

330 REM JUGADAS DEL ORDENADOR 

260 EGR Bl TO Ctd 

370 IF G=X(B THEN LET G=B 

380 1F X(B=0 THEN LET R=B 

ID MEXT OE 

£600 LET Xx (G)=(0 

GD LET XCRI=G 

620 GOSUB 3080 

Sa L fate TR GOSUE 1400 

E RETURN 


630 REN AUTOPLAY 
660 GOSUB 1100 

720 FOR asi 10 Cst 
2380 ET XCAr=CrAié 


EXT és 
E AC O 
SUB 390. 


3800 NEXT P 


3 Pier 


Líneas 110-170: Definen los valo- 
res variables. 


Línea 180: Define el área del 
texto en la pantalla, 


Líneas 190-230: Imprimen el 
mensaje de comienzo del juego 
en la pantalla. 


Línea 240: Si pides la solución, 
envía el programa a la subrutina 
de juego automático. 


Líneas 250-290: Definen la posi- 
ción de los números y la de los 
espacios que los separan. 


Líneas 300-320: Te avisan si has 
introducido una jugada imposi- 


ble. 


Líneas 330-340: Almacenan los 
números que se han cambiado a 
posiciones nuevas. 


Líneas 370-490: Subrutina que 
dibuja la forma del tablero en la 
pantalla con los números en sus 
posiciones respectivas. 


Líneas 460-480: Comprueban que 
los números están en el orden 
correcto. 


Líneas 500-520: Mensajes que te 
indican cuántas jugadas necesi- 
taste para resolver el problema. 


Línea 540: Finaliza el programa. 


Líneas 550-640: Subrutina que 
organiza las jugadas del ordena- 


dor. 


Líneas 650-800: Subrutina que 
controla las jugadas del ordena- 
dor cuando está jugando auto- 
máticamente, 


Esta es una página sacada del 
«Boletín de los Guirlaches de Ca- 
lidad Huggett». ¿Podrías comple- 
tar el crucigrama de números 
que hay al pie de página? 

Las seis claves van empareja- 
das. La 6 y la 2 se refieren a la 
edad del director. La 1 y la 3 se 
refieren a los trozos de guirlache 
y la 4 y la 5 al número de 
empleados. Leyendo el texto, ad- 
vertimos que hay varias claves 
que nos ayudarán a resolver el 
crucigrama: 

1) La edad y el año de naci- 
miento del director suman 
1980, fecha del boletín. 

2) El número de empleados se 
ha doblado en cinco oca- 
siones (lo que no equivale a 
decir que es cinco veces 
mayor). 

Si compurebas todos los valo- 
res posibles verás que sólo las 
respuestas correctas caben en el 
crucigrama. 


Este programa determina la edad 
del director y su año de naci- 
miento. Sabemos que el número 
de dígitos del año de nacimiento 
tiene que ser igual al primer dígi- 
to de su edad, y que ambos 
números han de ser primos. El 
programa comprueba todas las 
edades impares entre 11 y 99, 
ignorando los números pares, los 


l5_1200, 


BO 
FOR 


RETURN 


cuales por definición, no son nú- 
meros primos. 

El programa da valores para 
su edad y el año de nacimiento. 
Hay que introducir estos núme- 
ros en el crucigrama, en las cla- 
ves 6 y 2, respectivamente. 

Sin embargo se hallarán varios 
valores posibles; anótalos cuando 
termine el programa y luego pul- 
sa cualquier tecla para volver a 
empezar. En el crucigrama sólo 
cabe uno de esos valores. 


Líneas 120-150: Comprueban la 
edad del director (entre 11 y 99) 
para ver si es un número primo. 


LET Aza 

140 LET X=0:LET Y=2:B0SUB 17005 
PRINT "COMPROBANDO.EDAD" A 

150 GSOSUB 250 

PA A ES N GOTO. 231 

170 LET N=x179380-A 

130 GOSUE 2507 

AU AE edo REN CONO 30 

200 LET Al=1NT (4/10) 

ei LETS Mib=N 1 DSUNS CNY 00 

eo EE ALS HEN. RRINT CEDAD.=. “ás 
PRINT “ANO.DE.,NACIMIENTO.=."3N1 
GOSUB:- St 

230 NEXT A 

2D PRIEST BRENT STOP 

250 REM COMBEROBAR PRIMO 

260 LE? 1=0 

A FOR OEA O SORRENTO TEP 2 

280 LET R=N/Q 

220 1. R=E=INTOR) THEN CLET T=is 
LET G=S5QR (MM 
NEXT Q 


Línea 120: Comprueba las edades 
de 11 a 99 excluyendo las pares. 


Líneas 160-180: Resta de 1980 las 
edades que son número primo 
para hallar el año y comprueba 
que este número es primo, 


Líneas 190-220: Si ambos núme- 
ros son primos los coloca en 
cadenas para comprobar si los 
dígitos del crucigrama son los 
mismos. En caso afirmativo im- 
primen la respuesta. 


Líneas 250-310: Subrutina que 
comprueba los números para ver 
si son primos. Devuelve un valor 
T=0 si encuentra un número 
primo, y T'=1 en caso contrario. 


NARIO 
añ inauguró la fábrica, 
lac ett. En estos 100 años desde 
: USgett, abuelo q director actual, fundara la, 

€Mpresa, hem O fabricando en el O lugar Y Con la, 
MiSma calidad de £MPre sus famosos Productos. 

Nuestro Peportero 'vO conv 
tor, Sr. D les 

del 


Ss año, como todos los 
Un Sran éxito Para la, €MPresa, infor- 
donos al O ti O ) 


mM IMPO que desde su fundación, el Número 
de €Mpleadogs Se ha doblado €Xactam 


¿Cuántas tengo? 
Úmero Original de emplea- 
dos, 


6 Edad del director actual (nú- 
Mero Primo) 


VERTIC 
1 Número de piezas de guirlache 


<n Una caja de kilo, 
2 Año en que 


actual (número Primo) 


JUEGOS DE PENSAR 


Este programa determina el nú- 
mero de trozos de guirlache que 
hay en una caja de 1 kg, y el 
cuadrado de este número (es de- 
cir, el número de trozos de guir- 
lache por el mismo número de 
cajas). 

Por supuesto, no es necesario 
tener una caja de guirlache para 
determinar estos valores. Obser- 
vando la disposición del cruci- 
grama podemos saber que el nú- 
mero de trozos en una caja tiene 
que estar entre 32 y 99, para 
poder tener un cuadrado con 
cuatro dígitos. Además, el último 
dígito del número de trozos de 
guirlache es el mismo que el 
primer dígito del cuadrado de 
este número (según los datos del 
crucigrama). Finalmente, el últi- 
mo dígito del cuadrado tiene que 
ser 9, según la respuesta que ya 
hemos encontrado. 

Sin embargo, el programa si- 
guiente nos da dos respuestas 
posibles, que concuerdan con el 
crucigrama. Para encontrar la 


respuesta correcta, tenemos que 
mirar el programa siguiente. 


REM GUIRLACHE 
GOSUB 1100 
TO 99 


FOR N=32 

LET S=Nx*N 
LET 
LET Si=INT 


N2=M-10%* INT (00/10) 
(S/1000> 


LET S4=S5-10*INT(S/10)> 
(IF N2=S1 AND S4=2 THEN PRINT N,S 


NEXT ON 


PRINT:PRINT:¿STOP 


Líneas 120-130: Valoran uno por 
uno cada número del 32 al 99, y 
asignan el cuadrado de cada uno 
a la variable S. 


Líneas 140-180: Introducen estos 
valores en cadenas y comprue- 
ban los valores de los dígitos 
correspondientes para cada nú- 
mero. Imprimen todas las res- 
puestas posibles, 


LISTADO peas 


Este programa calcula el número 
inicial de empleados en la fábrica 
de Huggett. Como la solución 
tiene dos dígitos, el número ini- 
cial de empleados tiene que ha- 
ber sido entre 10 y 99. Para 
encontrar el número actual de 
empleados, el programa multipli- 
ca cinco veces el número original 
por 2, 

Para que el número actual que- 
pa en el crucigrama, el primer 
dígito tiene que ser un 5 o un 9 
(que son las dos soluciones que 
nos dio el programa anterior). 
Además, el último dígito tiene 
que ser el mismo que el último 
dígito del número inicial de em- 
pleados. 

El conjunto de cifras que da el 
programa elimina uno de los pa- 
res de números del programa del 
guirlache, con lo que se puede 
completar el crucigrama. 


100 REM EMPLEADOS 

110 BOSsUB 1100 

120 FOR N=10 TO 99 

130 LET M=N 

140 POR -E=1 TO 3 

150 LET Men 

160 MEXT E 

L7U RETO MIS INT CM LOD) 
LET M3=M-10* INT (M/105 

180 LET No== 10% UNT ONCLO) 

190 TF HMi=5 AND M3=N2 QR Mi=2 
AMD MIN THEN PRENT NEO NM 

200.1 MAS RO TEEN ERLNE: ERERS Oe 

ALO INE NXSN 


E 


NOTAS DE_LINEA 
Líneas 120-160: Para cada valor 
posible del número inicial de em- 
pleados (de 10 a 99), calcula el 
número actual multiplicándolo 
por 2 cinco veces, 


Líneas 170-190: Ponen estos valo- 
res en cadenas y comprueban los 
digitos. 


Línea 200: Para el programa 
cuando el número actual de em- 
pleados excede un número de 
tres dígitos, 


Línea 210: Comprueba el siguien- 
te número inicial de empleados. 


Respuestas en la página 116 


La víspera de San Juan, los pro- 
fesores Addle y Glumb estaban 
descansando en el cuarto de es- 
tar, después de un largo día de 
conferencias. 

—¿Cuál es la raíz cuadrada 
de doce > —susurró el profesor 
Addle, 

—Tres coma cuatro seis y pico 
—contesto Glumb. 

—No, no, ¡Un número entero! 
Tiene que ser un número entero. 

—i¡Imposible, viejo! —le con- 
testó el profesor Glumb. 

—¡De eso nada! —exclamó 
Addle con tanto entusiasmo, que 
desapareció la esperanza de una 
tarde relajada. 

—Pues no sé cómo -—dijo 
Glumb. 

—No con números, pero si lo 
escribes con letras y en inglés 
(twelve) lo puedes conseguir. 

Y escribió con una tiza: 


y TWELVE => 


—Tienes que sustituir las le- 
tras por números, y la raíz cua- 
drada formará también una pala- 
bra en inglés, 

—Podría ser cualquier cosa 
—dijo Glumb. 

—De eso nada. La palabra 
sólo puede tener letras de la pala- 
bra “TWELVE?”, si no no sería 
justo. 

¿Cuál es la raíz cuadrada de 
twelve? 


1) Lo que estamos buscando es, 
para empezar, un cuadrado 
de seis cifras, y la tercera y la 
última tienen que ser las mis- 
mas; las otras son todas dis- 
tintas. 

2) Para conseguir un cuadrado 
de seis dígitos, la raíz tiene 
que estar entre 317 y 999, 

3) El programa elimina todos los 
valores posibles en los que la 
raíz cuadrada contenga dígi- 
tos que mo se hallen en el 
cuadrado, 

4) El programa comprueba el 
cuadrado para determinar si 
los dígitos tercero y sexto son 
iguales, 

5) Luego comprueba los otros 


cuatro dígitos, para ver si son 
distintos entre sí, y distintos 
del par de dígitos iguales que 
ya ha comprobado. 
6) Luego el programa saca todos 
los valores posibles entre 317 
y 999, Cuando ha encontrado 
un valor, pulsa cualquier tecla 
para que te dé el siguiente. 
Sustituye estos valores por le- 
tras y encontrarás la respues- 
ta correcta, 


Línea 110: Establece una dimen- 
sión para los seis dígitos de cada 
cuadrado perfecto. 


= 


Línea 120: Establece el área del 
texto en la pantalla. 


Línea 130: Determina la dimen- 
sión en la que se encuentran las 
raíces. 


Línea 140: Imprime el número 
que se está comprobando. 


Línea 150: Introduce la variable 
para los cuadrados perfectos. 


Líneas 160-380: Calculan los va- 
lores correctos. 


Líneas 390-410: Imprimen las res- 
puestas correctas para las raíces 
y los cuadrados y finalizan el pro- 
grama cuando se hayan compro- 
bado todos los números. 


REN TWELY 
O A FLO 
129, OSEA 
130 FOR N=317 TO 979 
140 LET X=0«LET Y=4:G6050É 1700: 
PRIMT “COMPROBANDO, “¿N 
LET S=NSeNn 
FOUR Des. 16 1 El 
LET Sb=TNTCS 10) 
LET FCE) =S-=10%S5 


ET S=s1 
, 


NEXT 

IE OECD) THEN GOTO 400 

LET T=0 

230 FOR ás1 TO 4 

240 FOR B=4+1 TO 5 

250 IF F(A)=F (0) THEN LET T=1 
LET B=5:LET As4 

260 NEXT E 

270 NEXT A 

T=1 THEN GOTO 400 


360 HEXT A 
370 1€ T=0 THEM LET D=3 
380 MEXT D 
390 1 T=1 THEN PRINT: 
PRINT O"TNELVE.=."¿NeNiPRINT: 


PRINT "RALZ. CUADRADA. =. “NG PRINTS 


GOSUE 1500 
“DO NEXT ON 
2410 PRINT:<PRINT:PRINT:¿STOP 


* Después de hallarse un valor, pulsa cualquier tecla 
para continuar el programa. 


A veces es necesario transmitir 
un mensaje a otra persona de 
manera que quien lo intercepte 
no pueda comprenderlo, o sea, 
usando un código. Por ejemplo, 
analiza este mensaje: 
KIS/EOCDECGGTO0O 
A diferencia de los códigos 
donde hay que sustituir una letra 
por otra, necesitas un número 
“clave” para descifrar este código. 
En este caso el número es 7. 
Esta secuencia de letras incluye 
*P” que representa un espacio. 
Ahora empieza a contar siete 
letras empezando por la izquier- 
da. La primera letra es C; cópiala 
y tacha la C en el mensaje. Cuen- 
ta otras siete letras, y cuando 
llegues al final del mensaje sigue 
contando volviendo al principio. 
Sigue así hasta que descifres todo 
el mensaje, y no te olvides de ir 
tachando las letras que ya has 
copiado. 
Al final encontrarás el mensa- 


je: 
CODIGO/SECRETO 
La Y indica un espacio. 

Ahora descifra los mensajes 
siguientes. El número secreto es 
diferente para cada uno. 

(1) /IEDLREBIAV- 
MAL/CNANA 

12) ¡(FTOTNRBPE: 
ROIOAACLAEIMTA 

Los números secretos para ca- 
da mensaje son: (1) 5 (28 


REM CODIGO 
110 DIM U(24) 


1620 GOSUB 1100 

130 FOR I=1 TO <ILET UC =OS MEAT 1 

140 LET X=D¿LET Y=3:2505UB 1700: 
PRINT “C.=.CODIFICAR" 

150 PRINT:PRINT “D.=. DESCIFRAR" 

160 PRINTAPRINT CC PUESA Cea Da 0 

170 BOSUBE 13003 1F DSi*"C" AND BSD" 
THEN GOTO 170 

180 LET H$=5$:GOSUE 238001: G60SUBE 17004 
PRINT “TECLEA. VU. MENSAJE" PRINT 

190 EOSUB. <*DO:LB1. L=LENORS ELE IS=Es 

200 PRENTTUEREND "INTRODUCE MÚUNEROS 
SEGRETO"*+BOSUBE <1DOTLEL COLE 60 

210 LED ES=oSs E AP= UD. TEHENCOOTO 310 

Sed OR Esti TOR 


230 LEV Estel PE BL THEN LeET 6=1 
2240 Ter 16D THEN GOTO 230 


200 MENA Y 
260 LET GC Ps CABOS UE 00 
LET Ur =a 
2 de CAL Mao al) 
28910) GOSUÉ <800:G0SUE 17002 
PRENT "MENS Aci: CONDE Cano. EOL 
FOR I=3. TO IS LET R=SUICIO E 
IOOPARENT Ea ex 
E 3 
310 GOSUE <2800:605UB 1700: 
PRINT “MENSAJE. DESCIFRADO: "2 PRINT 
A O 
SID E bla DE EA. MEN EEN 
340 TE 106+0 TREN GOTO 330 
ADOAMEA TO UL 
360 LET P=5G:B0SUÉE <OQDDO:PRINT PS: 
LET OU) =1 
STO LES EC E ESE AE O alo 
380 PRINTPRINTIS TOP 


Puedes usar el programa si- 
guiente para codificar y descifrar 
mensajes. 

No te olvides que cuando codi- 
fiques mensajes, “/” es necesario 
para marcar los espacios. El nú- 
mero máximo de espacios y Ca- 
racteres es 24, 


Línea 110: Establece un cuadro 
con 24 puestos para letras y espa- 
cios. 


Línea 120: Determina el área del 
texto en la pantalla. 


Línea 130: Determina los valores 
iniciales del cuadro. 


Líneas 140-170: Imprimen la pre- 
gunta en la pantalla pidiéndote 
que elijas la opción de codificar o 
descifrar mensajes. 


Líneas 180-200: Te piden que 
teclees un mensaje y un número 
secreto. 


Líneas 210-270: Codifican el 


mensaje que introdujiste. 


Líneas 280-300: Imprimen el 
mensaje codificado en la pantalla 
y envían el mensaje al final. 


Línea 310: Imprime el mensaje de 
descifrar en la pantalla. 


Líneas 320-370: Descifran el 
mensaje codificado que has te- 
cleado. 


CODIGOS 


En este programa el ordenador te 
pide que elijas el límite máximo 
de una serie de números, Luego 
que elijas un número aleatorio 
entre uno y el valor que has 
elegido. 

Tú tienes que adivinar este 
número en el mínimo de intentos 
posibles con la ayuda que te da el 
ordenador, 

Al final, el ordenador te indica 
cuántos intentos has necesitado 
para adivinar el número y si te 
considera un buen adivino o un 
chapucero. 

Normalmente deberías de adi- 
vinar el número en un máximo 
de 5 a 7 intentos. Lo más fácil es 
elegir siempre los valores inter- 
medios entre el límite máximo y 
el límite mínimo del intento an- 
terior, 


Líneas 100-130: Imprimen el títu- 
lo en la pantalla y determinan la 
posición del texto. 


Líneas 140-150: Imprimen una 
pregunta y esperan tu respuesta 
(que establecerá el límite superior 
de los números que puedes 
elegir). 


Líneas 160-180: Eligen un núme- 
ro aleatorio y se demora un mo- 


mento para que parezca que la 
máquina está pensando en el nú- 
mero que va a elegir. 


Líneas 190-270: Imprimen el 
mensaje para que sepas que el 
ordenador ya ha elegido el núme- 
ro dentro de los límites especifi- 
cados. 


Línea 280: Introduce tu intento. 


Línea 290: Si has acertado esta 
línea, envía el programa a la 
frase que indica que has ganado. 


Líneas 300-340: Si tu intento era 
demasiado alto o bajo, te dan 
otra oportunidad. 


Líneas 350-400: Imprimen men- 
sajes según el número de intentos 
que has necesitado para adivinar 
el número correcto; luego finali- 
zan el programa, 


REM ALTOBAJO 
GOSUE 1100 
PRENT "e: ALTO-BAJO” 

T=212 GOSUB 1400: GOSUE 
ERIN PRINIESQUE ITMTTES 
SOSUB 2100 
LET N=k 
GOSUB 1300 
PET Wes P60S0B 
LET =D 
GOSUE 2800 
BET G+6+1 
PRINT 
PRINT 
PRIMT 
PRINT 


2800 


1401) 


"HE»ELEGLDOS. UN MUNERO" 


MEME. La ao RON) 
PRINT:¿PRINT 


PRINT 
SOSuE 2100 

1 RK=R THER G60TO 
PRINTS PRIMT 

TE ORAR THEN PRINT 
TF RSR THEN PRINT 


"aDIVINALO": 
3390 


"DEMASIADO. BAJO." 
"DEMASTADO. ALTO," 


340 
330) 
3060 
370 


380 
390 


400 


4 
0111213 


78 


LET T=1:GOSUB 1400 
GOTO 200 
PRINT¿PRINT 

LE GR6: THEN PRINT “QUE MALT" 

IF G<7 ÁND 6G>4 THEN 

PRINT "NO.ESTA.MAL!" 

ECERIIMEN ERINT MUY BLENTL" 
PRIMTEIPRINT:PRINT O "MECESITASTE. E 
STR$(G) 53". JUGADAS" 

TOR? 


vá 


Joe el listo y Bill el flaco estaban 
sentados en el Rolls de Joe cierta 
tarde. 

—Mira, Bill —dijo Joe, exha- 
lándole en la cara una nube de 
humo del puro que se estaba 
fumando—, los negocios no van 
demasiado bien. Como siga así, 
tendremos que buscar otros 
asuntos. Me entiendes, ¿verdad? 

—Vale, jefe —contestó Bill—; 
haré lo que pueda. 

A la tarde siguiente Bill se 
subió sonriente en el Rolls. 

—Mira, Joe, esto te va a en- 
cantar. He encontrado una joye- 
ría que nos servirá. Las joyas 
están metidas en la caja fuerte, 
que es tan grande como una 
habitación. Y el cerrojo no es 
ningún problema. Mi tío Paco 
trabaja allí y dice que la combi- 
nación es de 16 números, Tienes 
que girar la rueda cuatro núme- 
ros a la izquierda. Luego cuatro a 
la derecha. Luego otros cuatro a 
la izquierda y cuatro a la dere- 
cha. Lo malo es que Paco tiene 
una memoria de mosquito. Dice 
que sólo se acuerda de siete nú- 
meros, pero que se ha dado cuen- 
ta de que los números de la 
combinación hacen mi edad, 
¡que los sumes de un lado al otro 
o de arriba a abajo, siempre te 
sale 34! 

Joe el listo parecía algo du- 
doso. 

—Más vale que éste sea un 


buen negocio, o te vas a arrepen- 
tir —le 
Bill el flaco miró el papel que 
el tío Paco le había dado con los 
siete números que sabía. 
¿Cuál es la combinación de la 
caja fuerte? 


curortirO 
50050000 


dijo. 


REM MAGICO 
GOSUB 1100 
PRINT "..,.CUADRADO.MAÁGICO" 


LET T=2:G0SUB 1400:GOSUE 2800 
LET N=1:LET C=1 

DIM A(4,4) 

DIM C(4,4) 

FOR J=1 "TO 4 

FOR K=1 TO 4 

LET C(J,K)=0 

NEXT K 

NEXT J 

FOR J=1 TO 4 

FOR K=1 TO 4 
LETOA(J,K)=(J-1)4+k+eN-1 
NEXT K 

NEXT J 

FOR J=1 TO 2 

LET Z=A(J,J):LET A(J,J)=A (5-4 
LET A(5-J,5-J)=Z3LET Z=A(J,5- 
LET A(J,5-J)=A(Í=J,J)1 
LET A(5-J,3)=Z 

NEXT. 

LET C(1,1)=4(1,1) 

LET C(1,3)=A4(1,3) 

LET C(1,4)=411,4) 

LET C(2,2)=A(2,2) 

LET C(3,2)=413,2) 

LET 0(3,3)=4(3,3) 

LET C0(4,1)=A(4,1) 

GOSUB 2800 

LETOX=S:LET Y=0:G60SUB 1700 
PRINT "A...Brs Co. D" 

FOR J=1 TO 4 

LET Y=2+3% (J-1) 

FOR k=1 TO 4 

LET X=4*k+121F C0(J,K)>99 THEN 
LET X=X-1 : 

GOSUB 1700:PRINT¿ C(J,K) 
NEXT OK 

NEXT J 

LET X=0 

FOR J=1 TO 4 

LET Y=2+3* (J-1):560SUB 1700: 


PRINT STR; 


NEXT J21F C=D THEN GOTO 701) 


A) 
630 
700 


LET X=0D:3¿LET Y=13:605UB 1700: 
PRINT "COLUMNA. LINEA. NUMERO" 
LET X=0:LET Y=14:G0SUB 1700 
GOSUB 2200:LET C$=k% 

IF Cé="A" THEN LET 
15 Eé= UB" THEN ET 
1F C$="C" THEN LET 
TECCGBE="DO THEN ET 


Cl, 
LET X=8:G608UB 1700:GOSUB 
LET OR=k 


2 LDD0s 


LET X=15:GOSUB 
LET ON=k 

IF A(R,C)=N THEN 
LET C(R,C)=A(R,C) 
LETOC=0 

FOR J=1 TO 4 


1700: G0SUB 2100: 


FOR K=1 TO 4 
IF C(J,K)=0 THEN LET C=1 
NEXT OK 


NEXT 
GOTO 390 
STOP 


Líneas 100-120: Definen el área 
del texto e imprimen el título del 
programa. 


Líneas 140-210: Definen los valo- 
res iniciales de las variables y la 
dimensión del cuadro que contie- 
ne los números de la caja fuerte. 


Líneas 220-310: Calculan todos 
los números y sus posiciones en 
el cuadro. 


Líneas 320-380: Almacenan los 
siete valores de los números co- 
nocidos. 


Líneas 390-520: Imprimen el cua- 
drado mágico con los números 
conocidos. 


Líneas 530-620: Te piden que 
intentes adivinar los números 
que faltan, 


Línea 620: Almacena los núme- 
ros que has dado si has acertado. 


Líneas 630-680: Comprueban si 
el cuadrado está completo, 


Línea 690: Envía el programa a 
la siguiente jugada si el cuadrado 
no está completo. 


Línea 700: Acaba el programa. 


No hay mucha gente que sepa 
que se puede programar un orde- 
nador para que adivine los pen- 
samientos, así que ya puedes sor- 
prender a un amigo con este pro- 
digio. Dile que has programado a 
tu ordenador para que adivine 
los pensamientos. Dile que nece- 
sitas a un conejillo de Indias 
humano para comprobar si fun- 
ciona. 

Si tu conejillo contesta correc- 
tamente a las preguntas del orde- 
nador, se quedará asombrado al 
ver que el ordenador puede adivi- 
nar el número que pensó tu 
amigo. 

Si el ordenador adivina un nú- 
mero distinto, es que alguien hi- 
zo trampa o no se sabe las tablas 
de multiplicar. Dile que lo inten- 
te otra vez, y comprueba que sus 
respuestas son correctas, ¡Y si 
sabe multiplicar! 


Líneas 100-130: Definen el área 
del texto e imprimen el título en 
la pantalla. 


Líneas 140-200: Imprimen un 
mensaje en la pantalla. 


Líneas 210-340: Piden que dividas 


el número elegido por 3, 5 y 7 y 
que introduzcas los restos, 


REM ADIVINO 
GOSUE 1100 
PRINT"ADIVINO. DE. NUMEROS" 
PRIENTSFR INT 

PRINT "PIENSA. EN. DR, NUMERO" 
PRINT 

PRIMI" DE. L. 0 100 PERO NO" 
PRINT 

Pd: al 
1400 
SOSuUE 2800 

RIN ERA OLA 
PRINT Le OR «03 CUANTO, TE. O 


BOSE 1400 
2 


BOSUB 
PRINT 
sanidad 
PRINT 

T=4:60SUB 1400 


ant, PENSAR" 


N=1 TG 100 
Calado A TL eo 


GOTO 450 


IF (NED ES 
GOTO 450 
LE ANC) FO INTO INÓ NITO 
GOTO 450 

LETOD=MELETON=100 

MEXT ON” 

IF D=D THEN PRINT“ME.RINDO!" 


ART CONE) 


PRINT 
a dota do 
GOSUE 150b 
PRINT:PRINT 


STRESS CNO 


EL ADIVINO 


E AS SL 
PRINTLO. ADIVINE!"S 


SOTO 540 

PRINT:PRINT" JUGAMOS, OTRA.VEZI" 
LET T=8:GOSUB 1400 

GOTO 100 

STO. 


Líneas 350-450: El ordenador cal- 
cula los restos de todos los nú- 
meros entre 1 y 100, y los com- 
para con los tres números que 
has introducido. 


Línea 460: Si no encuentra un 
número que cuadre, imprime un 
mensaje de error. 


Línea 470: Imprime la respuesta. 
Líneas 480-540: Imprimen los 


mensajes finales y acaban el pro- 
grama. 


Eres un general de las Fuerzas 
Aéreas y te han pedido que plani- 
fiques el abastecimiento de sumi- 
nistros de emergencia a equipos 
de hombres en dificultades, que 
se encuentran a diferentes distan- 
cias de tu base. 

Sin embargo, tus aviones no 
tienen la capacidad suficiente pa- 
ra llegar a su destino, que queda 
siempre fuera de sus límites de 
vuelo. Tampoco puedes aterrizar 
ni repostar en ruta. El piloto 
Rickenbaker sugiere la solución 
alternativa de abastecimiento en 
vuelo. 

—Necesito un escuadrón de 
aviones idénticos —te pide—, 
Llegará un momento durante el 
vuelo en el cual el suministro de 
un avión será suficiente para re- 
llenar los depósitos de todos los 
demás. Después, el avión vacío 
se retira y los otros continúan. El 
escuadrón sigue volando hasta 
que sólo quede un avión, que 
logrará llegar hasta su meta con 
los suministros. 

Sólo se te ocurre una pregunta: 
«¿Cuántos aviones necesitas, por 
ejemplo, para una distancia dos, 
o cuatro veces mayor?». Los pilo- 
tos se quedan perplejos y eres tú 
el que tienes que encontrar las 
soluciones por medio de tu orde- 
nador. 


REM. RESCATE 


GOSuEÉ 1100 


LETX=43LEY Y=8:G05UB 
"RESCATE. AEREO" 


PRINT 


1700 


LET T=4:G0SUE 1400 


GOSUE 
[EA 
CET 
ET 
FOR E=1 TO P 
ETA RS RAE 
NEXT € 


2800 
N:19:5605UB 
PuRdd 

R=13 


1300 


LET OR=CINT(R103/10 


PRINT+PRINT 
PRINTSPR INT 
PRINTPRINT 
PRINTPRINT 
GOSUE 2100 

IF R=P THEN 
IE KR? THEN 
PRINT 
LED +2 GOSUE 
PRINTEERENT 
PRINTI:PRINMT 
GOSUÉE 2100 


PRINT:¿¡PRINT 
PRINTS 
"RESPUESTAS. ==. INCORRECTO. PB 
1400: GOSUE 2800 
"CUANTAS .VECES. TIENEN" 


"LA.DISTANCIA.ES."¿R 
"VECES.LA. NORMAL" 
"CUANTOS. AVIONES" 
“NECESITAS? "; 


SECONRECTLOS 


TF X=P=1 THEN PRENTS 


PRINT "CORRECTO" 
A a 
PRINT 
SILO 


El número de aviones que necesi- 
tas aumenta rápidamente con la 
distancia de la meta. 

La cantidad de operaciones de 
abastecimiento es siempre una 
menos que el número de aviones 
que emprendieron el vuelo al 
principio. 


del texto e imprimen el título en 
la pantalla. 


THEN PRINTS 
"RESPUESTA... INCORRECTA" P=1 


Líneas 150-160: Borran la panta- 
lla y eligen un número aleatorio 
para la distancia a recorrer, 


Líneas 170-220: Calculan el nú- 
mero de aviones que necesitas 
para llegar a la meta. 


Líneas 230-260: Imprimen el 
mensaje que te pide tu opinión. 


Línea 270: Espera tu respuesta. 
Líneas 280-290: Te indican si has 


acertado o no, y te dan la res- 
puesta correcta. 


RESCATE AEREO 


Líneas 300-320: Imprimen otra 
pregunta en la pantalla. 


Línea 330: Espera tu respuesta. 


Línea 340-360: Te indican si has 
acertado o no. Si no acertaste, 
imprimen la respuesta correcta y 
acaban el programa. 


En este programa, el ordenador 
te da una lista de seis números en 
desorden. Tienes que colocarlos 
en orden numérico de izquierda a 
derecha para que queden así: 


10 20 30 40 50 60 


En cada jugada tienes que in- 
dicar al ordenador cuántos nú- 
meros quieres invertir, contando 
de izquierda a derecha. Por ejem- 
plo, si tienes los números: 


30 20 10 40 50 60 


El ordenador te pregunta 
cuántos tienes que invertir, Si 
contestas 3, entonces el ordena- 
dor cambiará los tres primeros 
números para que la secuencia 
quede de este modo: 


10 20 30 40 50 60 


Ya tienes los números en or- 
den. Por supuesto no puedes in- 
vertir un solo número, ya que no 
cambiaría de posición. Lo máxi- 
mo que puedes invertir es seis, 
es decir, la línea entera. 

La finalidad de este juego con- 
siste en poner los números en 
orden en el menor número de 
jugadas posible, 

La mejor estrategia consiste en 
cambiar los números más altos 
al principio de la fila, y luego 
cambiarlos a sus posiciones co- 
rrectas, 


La fórmula 2N — 3 (donde hay N 
números en la secuencia) predice 
el número total de jugadas que 
necesitarías para ganar si tú fue- 
ras un ordenador. ¡Claro que tú 
deberías de poder jugar mucho 
mejor que una simple máquina! 


Líneas 100-130: Establece el área 
del texto e imprime el título del 
programa en la pantalla en la 
posición correcta. 


Línea 140: Establece una dimen- 
sión de seis números. 


Línea 150: Introduce los seis nú- 
meros de 10 a 60. 


Líneas 160-170: Eligen al azar la 
secuencia de los seis números y 
los coloca en desorden. 


Línea 180: Establece un contador 
para el número de jugadas que 
necesitas. 


Líneas 190-200: Comprueban si 
los números están en el orden 
correcto. 


Líneas 210-230: Imprimen en la 
pantalla la secuencia de los nú- 
meros en desorden. 


Líneas 240-260: Te 


preguntan 


100 REM CAMBIOS 
110 GOSUB 1100 
PRENT osas CAMETOS" 
LET T=2:G60SUB 1400 
DIM NC67 
FOR I=1" TO. 62 LET- NC 10T: 
MEXT 1 
LET N=6:FOR I=1 TO 4£4:G0SUE 1300 
LET T=NC(I3LET NOT =NCRI0 
LET NCRA=TEMEXT TaLET M0 
LET Mee*TiLET T=.S2605UB 1400: 
- GOSUB 2800 
LET P=O:F0R si TG Os 
TEIMCT?OASaDs THEN CUE E=l 
NEXT 1 
PRINT: 
PRINT"SECUENCIA.EN. DESORDEN: "Us 
LET Y=4 
EOR 1=1 TO 6% 
LEN == 22 GO0SuUB. 17/00 
PRINT STR ONCIFE NEXT L 


Y 


LET X=D:LET Y=7 
IEOF=0 THEN GOTO 


¿GOSUE 
¿00 


EOS 


cuántos números quieres invertir 
en cada jugada. 


Líneas 270-290: Ejecutan el cam- 
bio que has elegido y preparan el 
programa para la jugada siguien- 
té. 


Línea 300-310: Imprimen mensa- 
jes de victoria cuando has coloca- 
do los números en el orden co- 
rrecto y acaban el programa. 


¿30 PRENT "CUANTOS. QUTERES. INVERTIR.“ 
60 GOSUB 2100 
270 FOR L=1 TO LNFOERAZ E 

LED TENCIARLET ACI =N + TO 
200 LETINGRSi=TIA=SESMEXT E 
290 GOTO 180 
300 PRINTIPRINT"NECESITASTE. "¿STR UMD y 
"JUGADAS" 
PRINTSPRENTESTOR 


INTRODUCCION 


Como casi todo el mundo, tú te 
acuerdas de tu fecha de naci- 
miento. ¿Pero sabes en qué día de 
la semana naciste? ¿Conoces 
exactamente tu edad, y no sólo 
los años que tienes? ¿Puedes cal- 
cular en qué día de la semana 
empezará el próximo siglo? Ha- 
llarás respuesta a todas estas pre- 
guntas con este programa. Lo 
único que tienes que hacer es 
teclear la fecha de hoy (día, mes 
y año) y el día, el mes y el año 
que te interesa. El ordenador te 
informará del día de la semana 
en que cae esta fecha, y cuánto 
tiempo hay entre las dos. Así 
puedes descubrir el día de la 
semana en el cual sucedió un 
acontecimiento específico, o cal- 
cular la edad de algo o alguien 
con toda precisión, 


DATOS 


La Segunda Guerra Mundial 
“acabó el 8 de mayo de 1945, 
¿Qué día de la semana era? 

. Los EE.UU. declararon su in- 
dependencia el 4 de julio de 
1779, ¿Cuál es la edad de este 
país? 

. ¿Cuánto falta para el comien- 
zo del próximo siglo 


REM ODIA 

GOSUB 1100 

PRINT “.....CUALQUIER.DIA" 

LET OT=2:GOSUB 1400:G0SUB 2800 

PRINT "FECHA.DE.HOY" 

PRINT:PRINT"DIA...MES... ANO" 

PRINT:PRINT"1-31..1-1%, 19" 

LET OX=D:LET Y=8:G0SUB 1700: 

GOSUB 2100:LET Disk 

LET X=6:G0SUB 1700:G0SUB 2100: 

LET Mi=k 

LET X=15:GOSUB 1700:G0SUB 2100: 

LET Yi=k 

IF Y1<100 THEN LET Y1=1900+Y1 

GOSUB 2800:PRINT: 

PRINT"FECHA. DE. INTERES" 

PRINT:PRINT"DIA...MES... ANO" 

LET OX=0:LET Y=7:608UB 1700: 

GOSUB 2100 

LET OD2=KLET X=7:GOSUB 17003 

GOSUB 2100:LET M2=k 

LET X=15:G0SUR 1700:GOSUB 2100: 

LET Y2=k 

IF Y2x<100 V2=1900+VZ 
UB 2800: PRINT:PRINT 

DIM D(12) 

FOR Z=1 TO 12:READ D(Z):NEXT 

DATA 0,31,59,90,120,151,181,212 

243,273,304,334 

LET Y3=Y1-1900:LET Y4=Y2-1900 

LET T1=363*Y3+ INT (13/4)-+D (M1)+D1 

LET T2=365*Y4+ INT (14/4)+D(M2)+D2 

IF Y3=4x*INT(Y3/4) AND M1<3 

THEN LETÓT1=T1-1 


Makes 
PRUNTP 
ERIN 

A E: 


A 
E 


l 
L. 
e 
l = 
lo A E 
PRIM Ta E 1 E a 
read 2 TRS 
ES al 

AD PRENTY 
“60 A ls RINT 

o allas: ón $ 
47D 1 Tits THE py PRINT 
420 1F Ti=T2 THEN PRINT E 
4390 1 T12T2 THEN PRINT "ERA" 
500 LET R=T2-7*INT(T277)+1 
10 FOR Del TO RERESD DSSNEXT 
520 PRINT:¡PRINT "IN." 53D%8 
030 PREIS 
540 DATA "DOMINGO". "LUNES", "MARTES" 
550 DATA "MIERCOLES". “JUEVES” y 

"VIERNES", "SABADO" 


PRI 


RES 


* El intervalo de tiempo puede tener uno 
o dos días de error, ya que el programa 
asume que un mes siempre tiene 30 días. 


Les 110: Define el área del 
texto en la pantalla. 


Líneas 120-160: Imprimen el títu- 
lo y te piden que teclees la fecha 
de hoy. 


Líneas 170-200: Introducen la fe- 
cha actual y escriben el año en 
cuatro cifras si sólo ha recibido 
las dos últimas. 


Líneas 210-220: Te preguntan la 
fecha que te interesa. 


Líneas 230-260: Introducen el 
día, mes y año de interés y lo 
ajustan a un número de cuatro 
dígitos. 


Líneas 270-300: Convierten me- 
ses en días y los almacenan junto 
al número de días que le diste, 


Líneas 310-330: Calculan los 
años y días desde el 1 de enero de 
1900. 


Líneas 340-350: Ajustan el resul- 
tado para los años bisiestos. 


Líneas 360-370: Imprimen el 
mensaje que te indica cuántos 
días hay entre la fecha actual y la 
que te interesa. 


Líneas 460-550: Calculan el día 
de la semana en que cae la fecha 
que te interesa. 


INTRODUCCION 


Hace muchos años, el rey de 
Siam tenía cinco provincias. Ca- 
da año los administradores de 
cada provincia enviaban los im- 
puestos que habían recogido al 
tesorero del rey. Los impuestos 
se enviaban en unas bolsas de 
cuero llenas de lingotes de plata 
que pesaban cada uno exacta- 
mente un kilo. Cada saco llevaba 
escrito tanto el nombre del admi- 
nistrador como de la provincia 
que administraba, 

Un año llegó al palacio un 
mendigo, y trajo noticias que 
enfurecieron al rey. Dijo que los 
lingotes de una de las provincias 
estaban trucados, y que pesaban 
10 gramos menos que lo que 
debían pesar. Pero antes de que 
el mendigo pudiese revelar el 
nombre del administrador frau- 
dulento, una flecha entró por la 
ventana y atravesó al buen 
hombre. 

El rey juró vengarse de la 
muerte de su fiel súbdito y casti- 
gar al administrador deshonesto. 
Pero surgió un problema a causa 
de la balanza del tesorero. Como 
la balanza pertenecía al rancho 
de los elefantes, sólo podían me- 
dir pesos de más de 10,000 
gramos. 

Pero el rey, que era tan listo 
como rico, encontró una fácil 
solución. Colocó las bolsas en 
fila, sacó un lingote de la prime- 
ra bolsa, dos de la segunda, tres 


de la tercera, cuatro de la cuarta 
y cinco de la quinta bolsa. Colo- 
có los lingotes en la balanza, 
sabiendo ya que juntos deberían 
pesar 15.000 gramos. Sabiendo 
cuántos gramos faltaban, sabía a 
qué bolsa pertenecían los lingo- 
tes. ¿A qué administrador castigó 
el rey? Parece muy difícil, pero en 
realidad no lo es, 


NOTAS DE LINEA 


Líneas 100-210: Definen el área 
del texto en la pantalla e impri- 
men el título del programa. 


Líneas 220-300: Imprimen un 
mensaje y un diagrama en la 
pantalla. 


Línea 310: Elige al azar el admi- 
nistrador deshonesto. 


Líneas 320-370: Calculan el peso 
de los lingotes. 


Líneas 380-400: Te piden que 
calcules y teclees tu respuesta. 


Líneas 410-450: Imprimen los 
mensajes finales y te informan si 
acertaste o no, y luego acaban el 
programa. 


REM GOBERNADOR 

GOSUE 1100 

PRENT 

PRINTS Y... EL REVISAR DO 

PRIMT 

PRIANT 

PRINT 

PRINT 

PRINT 

PRIANT DESHONES VOS 

LET T=5¿505U0E 1400 

GOSUE 2800 

PRINT 

PRIMT "LAS.EBARRAS. DEL. DHINISTRADOR" 
PRIMT 

PRINT "DEBERIAN. PESAR" 

PRA PISO la a seta e 1000" 
PRINTEPRINT CLAS O 
PRIMARIA a OO, 
PRINTIPRINT "4,*,%,* 4000" 
PRTINIPRNTA E E a OOO 
LET N=35:G0SUB 1300 

LET S=R*10 


LEFT T=15005-3 
PRINTS PRIMA "PERO .oElL. TOTAL ERAS 


SUR ITO 

LET T=1D:50SUÉ 1400 

GOSuUBE 1200 

PRINTS RINT EUROS 
"GRAMOS. DE. MENOS" 

PRINTS 

PRINT "4. GUE, ADHINISTRADOR 
PRINTPRINT "LE, CORTARON, LA. CABEZO? . 
PSB ana 

PRINT 

IF K=kR THEN PRINMNT CORRECTOS: 
GOTO 430) 

PEINTD INCORRECTO 

ECRINT: 

PRINT "ERA. AL. NUMERO. "¡5 TRS$ CR) 
SU 


INTRODUCCION 


En este programa el ordenador 
elige un número aleatorio de tres 
dígitos, usando valores sólo de 1 
a 9 (ningún 0). En 20 veces tienes 
que adivinar el número. No es 
tan fácil como parece, ya que, 
aunque tienes veinte oportunida- 
des, hay 888 números para elegir. 

En cada intento tienes que ele- 
gir un número de tres dígitos. El 
ordenador te indica cuántos dígi- 
tos has acertado y si alguno de 
ellos está en posición correcta en 
el número inicial, 

Por ejemplo, si el número co- 
rrecto es 135 y tu respuesta es 
259, el ordenador te indica que 
acertaste un número, pero en 
posición equivocada. Si tu res- 
puesta es 925, tendrías un núme- 
ro acertado en la posición correc- 
ta. 

La mejor estrategia para llevar 
a buen término este juego es la 
de eliminar los números inco- 
rrectos antes de intentar encon- 
trar las posiciones correctas de 
los otros, 


VARIACIONES 


Deberías poder resolver este pro- 
blema en menos de 20 intentos 
cuando hayas jugado un par de 
veces. Cambia I=1 a 20 por I=1 
a 10 en la línea 250, a ver si aún 
puedes ganar al ordenador. 


NOTAS DE LINEA 


Líneas 100-130: Definen el área 
del texto e imprimen el título en 
la pantalla. 


Líneas 140-150: Establecen las 
dimensiones y los valores inicia- 
les de cada una. 


Líneas 160-240: Eligen un núme- 
ro aleatorio de tres dígitos entre 
111 y 999, 


Líneas 450-480: Comprueban si 
hay dígitos correctos y si están 
bien situados. 


LISTADO 


Línea 250: Fija el número de 
intentos para adivinar el número. 


Líneas 260-300: Te piden que 
teclees tu intento y comprueban 
que éste es válido, 


Líneas 310-330: Almacenan el 
número que propones. 


Líneas 340-440: Comprueban si 
hay dígitos correctos pero mal 
situados. 


Línea 490: Si acertaste todos, en- 
vía el programa al mensaje de 
victoria, 


REM 


MASTER 


PAD 
110 GOSUE 1100 
LEO PRENT ano AER” 
130 LET T=4sibO0Ssub 
140 DIM ACI 


DIM B(3) 
160 LET Yi=0:LET Ti 
: I=1 


y 


Jl 


THEN BOTO 
TO 


SiS: 


SUE 1305 


THEN 
. L UHEN COTO 
4D ACIÍ)FENEXT 1 
30 FOR. ls O E 
AE NE 2300 
270 PRINT:PRINT “"ADIVINA.EL. NUMERO. "3 
STR$(I) 
280. PRINTE¿PRINT "TECLEA. TU. MUMERO.. Us 
2970 SOSUB <Lo 
300 1F K<111 0R K>2922 THEN GOTO 260 
2310 LET BC1)=TNT UNID) 
320 EET EZ 
ENTE UR TOBEUNT ER DODDO LOS 
330 LET B(3=kK=TD0%INTC/ 10) 
340 LET C=0:LET D=0O 
300 POR" Sed a 
360 1F ACDXPBCS+1) THEN GOTO 380 


los dígitos de la jugada son inco- 
rrectos, 


Línea 510: Te informa de lo que 
ha comprobado. 


Línea 520: Comprueba que no 
hay ningún dígito correcto. 


Línea 530-560: Imprimen un in- 
forme de lo que el ordenador ha 
comprobado. 


Línea 570: Envía el programa al 
intento siguiente. 


LET C=C+1 
IF A(J+1)<>B CJ) 
LET C=C+1 
NEXT J 

IF ACIAPB (3) 
LET C=C+1 

IF ADE) 
LET C=C+1 

FOR J=1 TO 3 
IF ACDABOD 
LET D=D+1 
NEXT J 


310 


320 


340 
530 
360 
370 
380 
390 
600 
610 


PRINT¿PRINT 


MEX 1 


GOTO 620 


PRINT:¿PRINT 
STOP 


Línea 500: Comprueba si todos | Líneas 580-600: Después de 20 


THEN GOTO 400 


THEN GOTO 430 


THEN GOTO 


THEN GOTO 


1F D=3 THEN GOTO 610 

IF Gs THEN GOTO 520 
PRIMT>PRINT STReC(C) ; 

" POSICION, INCORRECTA" 

IF D=0 THEN GOTO 540 

ERIN PRINTS TRECD 1. CORRECTO" 
IF C+DXF*D0 THEN GOTO 5060 

"NADA. CORRECTO" 

LET T=2:GOSUE 1400 


PRINT:¿PRINTU"YA. SONO, PREGUNTAS" 
PRIMA NTEL. MUMERCO A ES. SO DRS O 


"LO, ADIVINASTE, 


fallos, la respuesta correcta, 


Líneas 610-620: Mensaje de vic- 
toria y fin del programa. 


430 


480 


ROMPECABEZAS DE NUMEROS * 


Esta es otra oportunidad de ga- 
narle a tu ordenador. Imagínate 
que tienes 21 palitos de colores 
colocados en tres filas. En cada 
jugada tienes que llevarte como 
mínimo un palito y como máxi- 
mo siete, 

Tú y el ordenador os turnáis 
para llevaros palitos. La finali- 
dad de este juego consiste en 
hacer que sea el otro jugador el 
que se lleve el último. 

La mejor estrategia para ganar 
es jugar de atrás hacia delante, es 
decir, empezando por el último 
palito. En tu última jugada te 


tienen que quedar por lo menos 
dos palitos, y como mucho ocho 
(para poder llevarte de uno a 
siete y dejarle al ordenador con 
el último). Así que necesitas que 
al ordenador le queden por lo 
menos nueve palitos en su penúl- 
tima jugada. 

Al principio, el juego parecerá 
muy complicado, pero si te lo 
piensas desde el fimal hasta el 
principio, te darás cuenta de que 
puedes ganarle al ordenador si 
eres un poco listo y eres, además, 
el primero en jugar. Recuerda 
que el ordenador siempre te ofre- 
ce la posibilidad de empezar tú, 
así que deberías poder ganarle 
casi siempre. Es una pequeña 
trampa, pero puedes utilizarla, 


Dibuja tres filas de siete palitos y 
vete tachando los que tú o el 
ordenador os hayáis llevado ya. 
Te ayudará a no perder la cuen- 
ta de los que te quedan. 


Líneas 100-130: Definen el área 
del texto e imprimen el título. 


Líneas 140-180: Establecen los 
valores iniciales de las variables e 
imprimen el número inicial de 
palitos, 


Líneas 190-200: Te piden que 


empieces tú. 


Líneas 210-230: Si introduces un 
valor incorrecto, o te envía de 
nuevo al principio o hace un 
comentario sobre tu error (esto 
te impedirá hacer trampa). 


Línea 240: Calcula la cantidad de 
palitos que quedan después de tu 
jugada. 


Línea 250: Si aun quedan palitos 
después de tu jugada, las líneas 
330-350 te muestran cuántos 
quedan. 


Línea 260: Si te llevas el último 


76 


palito, envía el programa al men- 
saje de derrota en las líneas 300- 
320 antes de ir al final del pro- 
grama. 


Líneas 270-280: Comentario en 
caso de que introduzcas un nú- 
mero incorrecto o si te llevaste 
más palitos de los que quedaban. 


Líneas 330-350: Imprimen el nue- 
vo resultado después de tu ju- 
gada. 


Línea 360: Si queda más de un 
palito, el ordenador ejecuta su 
jugada. 


Líneas 370-390: El ordenador re- 
conoce su derrota. 


Líneas 400-440: El ordenador eli- 
ge el número de palitos que se 
lleva y te informa de ello. 


Líneas 450-480: Imprimen el nú- 
mero de palitos que quedan. 


Línea 490: Envía el programa a 
la jugada siguiente. 


100 
110 
da 
130 
ao 
ao 
100) 
170 
180 
1290 
00 
el) 
20021) 
230 
240 
230 
260) 
270 
280) 


27 
EM 
1) 
LLO 
330 
341) 
E 
360 
370 
380 
370 
400) 


REM PALITOS 
GOSUR LLOD 
o PALOS > 
LEr T=4:G0SUB 1400: 6C0SUB 2800 
LET SSL iLeEL L=Z 
BOSUB 28003 PRINT:PRLNT 
LE LORO 
PRINT o z 21 OFAL ES. qe 
E ¿SUE 1400 
Y VO. TURNO. E 


IF KB, THEN SOTO 150 
IF Kxi=0 THEN GOTO 280 
1 RSS TREN GOTO 130 


LET SS -6 

Fo S20 THEN Oro 330 

e n= TREN OTTO 00 
LETS 

PRINTIPRINT” TONTO" BOSuUB 1400: 
BOLO 130 
e a SE 
PR RS AS OE SNE SIE 
PRINTO PRIEST “Has. PERBDDO 
GOTO 500 

LET PTB$=STRS CS) 

ERIN PRENT E O Alo OS 
LET T=1:G60S5UÉ 1400 

IF Si2*1 THEN GOTO 400 
PRIENTAPRDNTO  NENGOS UE SCOER. 
PREMESPRINT “ELULTIMO.PALI PQ" 
PRINT:PRINT "TU. GAN4S.":G0TO 500 
LETS DNS do la E dr 
1 dd THEN GOTO 420 

LETIM=S GOSUB 13bdS 

dE RA THEN GOTO 410 

LET ZI$=5STR$ CR) 

FERENTSARENTO OO COB, ab 

AS 

PRINT 

LES 2=5TRS CS) 

PREUNT MEE. TOTALES noe 

LET T=3:GOSUB 1400: 605UB 2800 
GTO 15350 

STOP 


ROMPECABEZAS DE NUMEROS 


INTRODUCCION 


En este programa tienes que 
guiarte gracias a las estrellas y 
llegar a un punto preciso dentro 
de la Vía Láctea. 

El ordenador elige al azar un 
punto de la galaxia representada 
por un cuadrado dividido en 100 
secciones. Tienes que llevar tu 
nave espacial hasta allí lo más 
rápido posible. 

La sección es un número secre- 
to que tienes que adivinar en el 
menor número de jugadas posi- 
ble (para ahorrar combustible). 
A cada jugada tuya, el ordenador 
imprime una línea de una a seis 
estrellas. Seis estrellas quiere de- 
cir que estás muy lejos, y una 
que casi has llegado. 

Cuando tengas un poco de 
práctica deberías de poder llegar 
a la posición correcta en unas 
siete jugadas. Cinco jugadas es 
excelente. 


CONSEJOS 


Cada estrella en la pantalla re- 
presenta una potencia de 2: 
1 estrella =2* (2) 


2 estrellas =2*? (4) 

3 estrellas =2%3 (8) 

4 estrellas =2* (16) 
5 estrellas =2*- (32) 
6 estrellas =2% (64) 
7 estrellas =2" (128) 


NOTAS DE LINEA 


Líneas 100-130: Definen el área 
del texto e imprimen el título en 
la pantalla. 


Líneas 140-150: Eligen un núme- 
ro aleatorio del 1 al 100. 


Líneas 160-180: Definen el valor 
inicial del contador para el nú- 
mero de jugadas. 


Líneas 190-250: Imprimen un 
mensaje pidiéndote que empieces 
a jugar. 


Línea 260: Si adivinas la posición 
correcta, envía el programa a los 
mensajes finales. 


Líneas 270-280: Calculan a qué 
distancia estás de la posición co- 
rrecta del punto que buscas en la 
Vía Láctea. 


Líneas 290-310: Establecen la dis- 
tancia en número de estrellas. 


Líneas 320-370: Imprimen el nú- 


mero correcto de estrellas, 


Línea 380: Envía el programa a 
la jugada siguiente. 


Líneas 390-440: Imprimen men- 
sajes con los resultados y acaban 
el programa. 


REMO ES 
GOSUB 1100 
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LE Te 2 DO0SuUE 
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[INTRODUCCION SN 


Un día, viajando por Escocia, 
llegas a un pueblo donde quieres 
pasar la noche. Pero en la pen- 
sión donde quieres quedarte no 
hay nadie. Un transeúnte te 
aconseja que esperes a la dueña 
de la pensión, y añade que la 
reconocerás enseguida, ya que 
mide más de seis pies y seis 
pulgadas. Tú te quedas perplejo 
pensando si eso es mucho o 
poco. 

Un poco más tarde, ella te 
enseña tu habitación. El sitio no 
parece demasiado limpio. La 
dueña te dice que no te preocu- 
pes por las pulgas. Sólo pueden 
saltar ocho pulgadas. Y tú te 
preguntas si alguna te habrá al- 
canzado ya desde la cama que 
está en la otra punta de la habi- 
tación. 

A la mañana siguiente, se te 
rompe el cordón de un zapato. 
La dueña de la pensión te dice 
que ella tiene una cuerda de me- 
dia pulgada de grosor. No estás 
muy seguro si eso te servirá. 

Aunque nunca vayas a Esco- 
cia, te será útil saber cómo se 
convierten pulgadas o pies en 
centímetros o metros y viceversa, 
Este programa te ayudará a hacer 
las conversiones. 

También te permite introducir 
cualquier combinación de medi- 
das, de manera que 5 yardas, 2 
pies y 7 pulgadas te dará el mis- 
mo resultado que 221 pulgadas. 


[NOTAS DE LINEA | 


Línea 110: Define el área del 
texto en la pantalla. 


Líneas 130-160: Imprimen la op- 
ción de modo de conversión en 
la pantalla. 


Líneas 170-180: Seleccionan el 
modo de conversión. 


Líneas 190-210: Introducen valo- 
res métricos. 


Líneas 220-240: Calculan el equi- 


valente en valores imperiales, 


Líneas 250-260: Imprimen la res- 
puesta en unidades imperiales. 


Líneas 270-290: Introducen valo- 
res imperiales, 


Líneas 300-320: Calculan el equi- 


valente en valores métricos. 


Líneas 330-340: Imprimen la res- 
puesta en unidades métricas. 
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DO 
dat) 
130 
140 


130 
420) 
200 
210 
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REM CONVERSION 

GOSUB 1100 k 

LETOX=03LET Y=5:605UB 1700 
PRINT"... MEDIDAS" 

PRINT: 

PRINT "A. IMPERIAL.A.METRICO" 
PRINT: 

PRINT “"B.METRICO.A. IMPERIAL" 
PRINT:PRINTS 

PRINT "TECLEA..A4..0..B" 

GOSUB 1500: 1F G$<3"A" AND G9$<>"B" 
THEN GOTO 170 

GOSUB 2800:LET Y=2:G0SUB 1700: 

IF G$="A" THEN GOTO 270 

PRINT "... METROS. .2."31 

GOSUB 2100:LET M=1000*k 
PRINTIPRINT “CENTIMETROS.:. 
GOSUB 2100:LET M=M+10x*K 
PRINT:PRINT "MILIMETROS.:.“px 
SOSUB 2100:LET Me=Mek 
LET O I=INT(M/25.4+.5) 
LET Y=INT(1/36):LET I=1-36*Y 

LET ESINTU/1A2)2LET I=I-12xF 
PRINT:PRINT "......YARDAS.2."3V2 
PRINTIPRINT PIES.1."3F 
PRINT:¿PRINT PULGADAS. 2."51: 
PRINT:¿PRINT:¿STOP 

PRINT YARDAS .1."; 

GOSUB 2100:LET I=36xK 
PRINT:¿PRINT 

GOSUB 2100:LET I=I+12x*K 
PRINT:PRINT " PULGADAS. :."p2 
GOSUB 2100:LET I=I+k 

LET M=INT(25,.4x*I+.5) 

LET ASINT(M/1000):LET M=M-1000%*A 
LET B=INT(M/10):LET C=M-10xB 
PRINT:¿PRINT " METROS.:."¡Az 
PRINT:PRINT "CENTIMETROS.:."3B 
PRINT:PRINT "MILIMETROS.21."3C:2 
PRINT:PRINT:STOP 


[PROBLEMAS CIENTIFICOS 


INTRODUCCION 


Este programa pondrá muy ner- 
viosos a los que tienen que reco- 
rrer todos los días grandes dis- 
tancias para desplazarse a sus 
puestos de trabajo cuando descu- 
bran que la velocidad media es 
de unos 25 km/h. 

Este programa se puede utili- 
zar también con un horario de 
ferrocarriles y un mapa que indi- 
que las distancias entre las ciuda- 
des principales. Si se comparan 
diferentes rutas, se puede indicar 
la más rápida y el ordenador te 
calculará la velocidad media. 
También te servirá para decidir 
si es más rápido viajar por tren o 
por coche o, en distancias cortas, 
por tren o por avión. 

Ten en cuenta que el progra- 


ni 


l 


ma sólo puede calcular viajes de 
hasta 24 horas, para lo cual utili- 
za un reloj de 24 horas. 


NOTAS DE LINEA 


Línea 110: Establece una dimen- 
sión para registrar el tiempo 
transcurrido hasta 24 horas. 
Línea 120: Define el área del 
texto en la pantalla. 


Líneas 130-150: Imprimen el títu- 
lo del programa. 


Líneas 160-210: Introducen las 
horas para iniciar y terminar el 
viaje. 


Líneas 220-240: Calculan el tiem- 
po transcurrido viajando. 


Línea 260: Imprime la duración 
del viaje. 


VELOCIDAD MEDIA 


Líneas 270-280: Imprimen la dis- 
tancia recorrida. 


Líneas 290-300: Calculan la velo- 
cidad media y la imprimen en la 
pantalla. 


REM VELOCIDAD 

DN 

120 GOSUB 1100 

130 LET X=31:LET Y=D/2:GB0SUB 1700: 
PRINT "VELOCIDAD.MEDIA" 

140 LET T=3:G0SUB 1400:GOSUE 2800 

TIME A=OSLET Y=3560SUE 1700 

150 PRINT"HORA.DE.SAL IDA" 

170 PERENToUPRIENT "HORAS. e 
GOSUBE 20D LET TC =GORR 

LSO RAIN Da a NL o oa 
GOSUB SiIDDELET TtEL=T CIR 

190 PRINTi¿PRIMT "HORA. DE.LLEGADA" 

200 PRINTPRENT “HORAS. 1. 7E 

UB 21IOD:LET TC2)1=G6D%R 

NT¿PRINT "MIENLT 

UB 20D LET 


Línea 310: Finaliza el programa. 


ES 


H= INT” (J/SDLET M=L-40*H 
UB SOD:LET X=ODGLET Y=zZi 
GOSUE 1700 
6D) PREMT. “DURACION, DE. VIAJE. EPRRENT: 
PRIMT AS HORAS: Cats MENO 
270 PRENTEPRINT: 
PRINT “DISTANCIA.R 


Dese O 


ECORRIDA" 


LETS 
300 PRINT¿PRINT "VELOCIDAD. .MEDIA.="2 
PRINTEPRINT OS]. KMPH," 
PRINT:STOF 


Este programa comprueba tus 
conocimientos sobre las leyes de 
la gravedad. Calcula el efecto de 
tirar una pelota al aire a distintas 
velocidades. Luego te pide que 
calcules cuánto tiempo se queda 
en el aire y la altura máxima a la 
que llegará. 

El programa utiliza unidades 
métricas, así que mide la veloci- 
dad en metros por segundo 
(m/s). Por ejemplo, una pelota de 
tenis puede llegar a los 45 m/s. 
Una de las maneras más fáciles 
para darse cuenta del efecto de 
las distintas velocidades de lanza- 
miento consiste en dibujar un 
gráfico en el que se indiquen la 
altura y la velocidad. En la base 
del mismo indicaremos la veloci- 


3 seg 


2 seg 


Altura (m) 


1 seg 


e 


Velocidad inicial (m/s) 


dad inicial, y la altura se medirá 
en el eje vertical. 

Podrás calcular la altura que 
alcanzará la pelota y el tiempo 
que permanece en el aire según la 
velocidad a la que se lanza. 

Te darás cuenta enseguuida 
que la altura aumenta según la 
longitud del tiempo que la pelota 
permanece en el aire. 


Línea 110: Define el área del 
texto en la pantalla. 


Línea 120: Elige al azar los valo- 
res de la velocidad inicial de la 
pelota siendo los límites 11 m/s y 
45 m/s, 


Línea 130: Imprime un mensaje 
informándote de la velocidad 
inicial. 


Líneas 150-180: Te piden que 
calcules cuánto tiempo se queda 
la pelota en el aire y la altura 
máxima que alcanza; luego cal- 
cula el resultado correcto. 


Línea 190: Acaba el programa. 


Líneas 200-230: Subrutina que 
compara los resultados que has 
introducido y los resultados co- 
rrectos y, luego, imprime la res- 
puesta. 


ALANZ 


1400 


LE 


21 
X 


NT "E 


PF 


) 


AN 
ue 


"ME 


EN GOTO 
SENS 
PLE 


IF ABS (K-A)7A0/5 
PRINT:PRINT 
PRINT:PRINT 
RETURN 


Té. E 


MAN RES 


INTRODUCCIÓN 


En un día caluroso de verano, 
cuando la temperatura sube a 
300C (86%F), todos buscamos una 
buena sombra. En medio del in- 
vierno, una ola de frío de — 20%C 
(—4%F) nos mantiene acurruca- 
dos en casa. Pero estas tempera- 
turas son insignificantes compa- 
radas con los extremos que exis- 
ten en la Tierra. El termómetro 
en Libia ha llegado hasta 58%C 
(136%F) mientras que en el Antár- 
tico el frío ha llegado a —88%C 
(— 127%). 

Por otra parte, las temperatu- 
ras artificiales son mucho más 
extremas. En un laboratorio se 
puede llegar a helar el aire, y 
algunos científicos han llegado a 
una fracción de grado del cero 
absoluto, —273%C (—460%F), la 
temperatura más fría que puede 
existir en el universo. Al otro 
extremo del termómetro, la tem- 
peratura del sol ha llegado a 15 
millones %C (27 millones “F). 

En 1714, el físico holandés Ga- 
briel Fahrenheit inventó el pri- 
mer termómetro de mercurio, 
con la escala de temperatura que 
ahora se conoce como grados 
Fahrenheit. En esta escala, el 
agua se congela a 32% y hierve a 
2120, Poco después (en 1742), un 
astrónomo sueco llamado Cel- 
sius inventó una escala mucho 
más sencilla: estaba dividida en 
100 unidades que iban desde la 
temperatura a la cual el agua se 


congela y la temperatura a la que 
hierve, 

Sin embargo, convertir una es- 
cala en otra es una operación 
lenta y difícil. La fórmula para 
convertir grados Celsius en gra- 
dos Fahrenheit es 9/5x“C +32, 
Para hacer lo contrario es 
0F— 32x 5/9. Un ordenador es la 
máquina ideal para resolver un 
problema matemático como éste. 
Este programa te permitirá com- 
pletar la tabla de conversiones 
siguiente: 


El oxígeno se licúa a: 


El alcohol se congela a: 


Temperatura media más baja en 
la Tierra: 


Temperatura media más alta en 
la Tierra: 


La plata se derrite a: 


El oro se derrite a: 


El centro de la Tierra tiene: a 


La superficie del Sol tiene: 60009 


) 


TEMPERATURAS ALTAS Y BAJAS 


NOTAS DE LINEA 


Línea 110: Define el área de la 
pantalla, 


Líneas 130-180: Imprimen un 
mensaje en la pantalla pidiéndote 
que elijas un modo de conversión 
específico y que teclees la tempe- 
ratura que te interesa, 


Líneas 190-230: Reciben valores 
en grados Celsius, los convierten 
en Fahrenheit e imprimen el re- 
sultado, 


Líneas 240-270: Reciben valores 
en grados Fahrenheit, los con- 
vierten en Celsius e imprimen el 
resultado. 


Línea 280: Detiene el programa. 


SL 


7 


2 MENA 
JE 1100 
X=SMLET Y=2:5054B 1700 
PRINT Us a COMMERS DON RRE 
PRINT "usos DE. TEMPERATURAS" 
PRINT¿PRINT "A.=.CENTIGRADOS 
PRINTEPRINT o ARAARENREDA 
PRINT:¿PRINT "B.=.FAHRENHEIT.A": 
PRENTSPRIENTO o CEMPECRADOS 
PELIN PRD PESA AO 
GOSUE 1500: 1F G$<2+"A" AND GX UB" 
THEN GOTO 170 
G0SUB 2800: IF 
THEN GOTO 240 
LET Y=+:B0SUB 1700: 
ERUNT CENTICGRADLOS 0 

SUB 21DOTLET C=k 
LED ESA CCA AAA DO 
PRINTS PRENDA aRRENAHEND Tn NE 
GOTO 280 
LET Y=4:GOSUB 1700: 
BRINT-ESARENAEILT. 1. 
GOSUB SIDODLET E=RK 
BET CENT 382)/42 5.0) 
PRINTS PRINT “CENTIGRABOS. 1 96 
PRINTSPRINTESTOR 


A 


G$="E" 


En cualquier juego de dados el 
número que obtienes tirando una 
vez dos dados es pura cuestión 
de suerte. No se puede predecir 
lo que te va a salir, aunque si 
tiras muchas veces sí esposible 


predecir aproximadamente los 
resultados aplicando las leyes de 
probabilidad. 

Esta es la explicación: en 100 
tiradas o? por ejemplo, 
más veces 7 que 2 o 12, Y ello 
porque el 7 se puede conseguir 
con seis combinaciones distintas 
de los dados: 


6+1 3+4 
5+2 2+5 
4+3 1+6 


Sólo se puede conseguir 12 con 
dos 6. Es decir que hay seis veces 
más posibilidades de conseguir 
un 7 que un 12, Los buenos 
jugadores de Backgammon siem- 
pre tienen en cuenta las probabi- 
lidades de los distintos números 
cuando colocan sus fichas; inten- 
tan evitar las posiciones en las 
que pueden perder por una pro- 
bable combinación de los dados 
y se arriesgan más en aquellas 
posiciones que no van a salir con 
los dados. 

En este programa el ordenador 
simula la caída de dos dados 180 
veces, y en la pantalla aparecen 
los números de los dados. Luego 
se imprime el resultado final. 

Puedes comparar el resultado 
con el cálculo medio de las pro- 


babilidades. Por cada vez que 
salgan 2 y 12, hay: 

Dos veces más posibilidades de 
3y 1 

tres veces más posibilidades de 
4, 5, 9 y 10; 

cinco veces más posibilidades 
de 6 y 8; 

seis veces más posibilidades de 
ele 

Por supuesto, nunca saldrá 1 si 
se tiran dos dados al mismo 
tiempo. 


Línea 110: Establece una dimen- 
sión que contiene los números de 
los dados. 


Línea 120: Define el 
texto en la pantalla. 


área del 


Líneas 130-150: Imprimen una 
lista con los posibles valores de 


los dados. 


Línea 160: Establece los valores 
iniciales de los dados. 


Línea 170: Imprime un mensaje 
que indica el resultado de cada 
tirada. 


Línea 180: Elige números aleato- 
rios que simulan las tiradas. 


Línea 190: Imprime cada tirada 
en pantalla. 


Líneas 200-240: Repiten las tira- 
das 180 veces y muestran el re- 
sultado con una línea de estre- 
llas. 


Línea 250-280: Imprimen el re- 
sultado total de todas las tiradas 


a doble columna. 


Línea 290: Termina el programa. 


— UADO 


100 REM DADOS 
AN AAA Cd 
LO EOSUB LOOSE 56=0 
30 FOR 1=Tl TO. Le 
140 LEFT X=1=ITNTCISIOSLET Yelo 
GOSUE 17DO07PRIMT 71 
1390 MEAT 1 
160 LET NMeGSFGR l=1 TO lec atcis=0s 


AS 


ET Y=14:608UB 1700: 
PRINTO"ECHA.L.C x 
(31 


180 


BOTO 
1400 


OSUB 10D: 


L 


>RINT:ISTOP 


Vas conduciendo tu deportivo 
por una carretera comarcal a 80 
km/h cuando, de repente, des- 
pués de una curva, ves a unos 
diez metros de distancia una se- 
ñal de STOP. ¿Cuánto tiempo 
transcurre desde que ves la señal 
hasta que pisas el freno? ¿Y des- 
de que pisas el freno hasta que el 
coche se detiene? ¿Y cuánto tiem- 


po ha transcurrido desde que 
viste por primera vez la señal de 
STOP hasta que el coche para? 

La acción de detener un coche 
consiste en dos procesos: el darte 
cuenta de que tienes que frenar, y 
el frenado en sí. El sentido co- 
mún nos dice que, cuanto mayor 
sea la velocidad del coche, más 
tarda éste en detenerse. Pero me- 
nos gente sabe que el tiempo de 
tomar una decisión varía tremen- 
damente en comparación con el 
tiempo dedicado a frenar. 

Como regla general, el Código 
de la Circulación estima que la 
distancia que recorres mientras 
decides frenar es de unos 20 cm 
por cada km/h que marca tu 
cuentakilómetros. Es decir, si vas 
a 10 km/h, habrás recorrido 2 m 
antes de que pises el freno. A 100 
km/h, habrás recorrido 20 m an- 


tes de pensar en frenar. Sin em- 
bargo, la distancia de frenado 
aumenta notablemente a mayor 
velocidad: desde 39 m a 80 km/h 
hasta 75 m a 112 km/h. Es decir, 
a poca velocidad, pasas más 
tiempo pensando que frenando, 
y viceversa. 

En el programa siguiente te 
piden que introduzcas distintas 
velocidades de un coche que el 
ordenador convertirá en distan- 
clas que recorres mientras pien- 
sas, frenas y detienes el coche. ¿A 
qué velocidad se igualan las dis- 
tancias entre pensar y frenar? 


Línea 110: Define el área del 
texto en la pantalla, 


Línea 120: Imprime el título del 


programa y lo imprime en la 
pantalla, 


Líneas 130-160: Te piden que 
introduzcas la velocidad del co- 
che. Si es más de 112 km/h, el 
programa te avisa que estás por 
encima del límite de velocidad. 


Línea 170: Calcula la distancia 
que necesitas para frenar. 


Líneas 180-210: Imprime la res- 
puesta para las distancias que 
recorres pensando y frenando y 
la distancia total. 


Líneas 220-240: Imprimen los 
simbolos gráficos que comparan 
la distancia que necesitaste para 
pensar (P) con la distancia que 
recorriste mientras frenabas (F) y 
acaban el programa. 


"POR,ENCIMA. DE 


“Pos «NEXT 1 


MEGAS a 
1 


MEM NEXT 
PRINT:¿PRINT 


i-00s 
ENADO" 


(O 4020 
EEE 


Es 
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Respuestas en la página 116 


¡Buenas noticias! Acabas de ga- 
nar 5 millones de pesetas en la 
quiniela y tienes que decidir si 
gastártelo todo de un golpe o si 
invertirlos para hacerte millona- 
rio. Por fin te decides por la 
segunda opción. 

El problema es saber cómo 
invertir el dinero, Apostártelo to- 
do en carreras de caballos es muy 
peligroso, porque las posibilida- 
des de ganar son muy escasas. 

El director del banco te acon- 
seja que lo metas todo en una 
cuenta de depósito al 8 por 100, 
De este modo, ¿cuánto tiempo 
tardarías en ganar 50 millones de 
pesetas? 

Por otra parte, un amigo tuyo 


que va a abir una tienda de 
ordenadores necesita un présta- 
mos de 5 millones para empezar. 
Te ofrece un interés del 30 por 
100 a condición que le prestes el 
dinero durante veinticinco años, 
¿Cuánto dinero te devolverá al 
final? 

Por último, un amigo de un 
amigo te propone un negocio un 
tanto dudoso que consiste en 
transportar en avionetas particu- 
lares sacas de dinero de un punto 
a otro. Te pide que le prestes tu 
capital durante veinticinco años 
a un interés compuesto del 16 
por 100, 

¿Cuál de estas opciones esco- 
gerías si quieres conseguir tus 50 
millones? 

Recuerda que el interés simple 
acumula la misma cantidad de 
dinero cada año, mientras que el 
interés compuesto acumula el di- 
nero ganado cada año junto con 
la cantidad de dinero invertida 
en primer lugar. Así se gana 
interés sobre un capital cada vez 
mayor. 

En el programa siguiente tie- 
nes que introducir el valor de 
inversión. 


sa 
Q 
Dr >> 
Q 
Q 


A) 


REM IMTERES 
110 GOSUB 1100 
20 LET X=OSLET Y=D/2160S08 1700 
LSO PRL PRENSA ERES 
PRENT “SEMPLE. Y. COMPUESTO" 
140 LET T=32G0SUÉ 14D01605UE 2800 
130 LET X=D:¿LET Y=2:60SUB 1700: 
FRIMNTOS CAPLTAL. 0. 7 
GOSUB 2100:LET L=k 
160 PRIMOS RRINT CENTERESCA)D. a 
GOSUB 2100:LET I=k 
170 PRENTEPRENT TIEMPO. ENANOS 32 
GOSUB 21OD:LET Y=kK 
TAO TEBT RSINTO AAA Y LOOA DA 
190 PRINT:PRINT “CANTIDAD. DEVUELTA ES." 
200 PRINTPARINTDIRS CS IMPLREsS 
210 LE ResESFOR N=1 TO Ya 
LET R=R*(i+1/100) : NEXT ON 
220 LET R=INT(R+.5) 
230 PRINTSPRINTSR: >) (COMPUESTOS 
240 PRINT:STOP 


NOTAS DE LINEA 


Líneas 110: Define el área del 
texto en la pantalla. 


Líneas 120-140: Imprimen el títu- 
lo del programa en la pantalla. 


Líneas 150-170: Te piden que 
introduzcas los datos que servi- 
rán para calcular los pagos de 
interés. 


Líneas 180-240: Calculan la can- 
tidad a pagar con interés simple, 
y luego la cantidad con interés 
compuesto. Cuando acaba, se 
termina el programa. 
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Desde que el hombre miró por 
primera vez el cielo por la noche, 
los misterios que allí ha encon- 
trado le han fascinado. Aun an- 
tes de que se inventase el telesco- 
pio más primitivo, los astróno- 
mos pudieron reconocer los pla- 
netas más grandes y cercanos del 
sistema solar y darles un nom- 
bre. Ya se conocían, antes del 
siglo XVI, Mercurio, Venus, 
Marte, Saturno y Júpiter. El de- 
sarrollo del telescopio gracias a 
Galileo en 1609 transformó la 
astronomía, aunque Herschel no 
descubrió Urano hasta 1781. 

Desde entonces, el número de 
planetas en la órbita solar ha 
llegado a nueve, y la astronomía 
se ha convertido en una ciencia 
en la que las matemáticas y los 
ordenadores desempeñan un pa- 
pel vital. 

Sin duda, el objeto más grande 


Luna nueva 
0 3 7 


T PROBLEMAS CIENTIFICOS 


y asombroso del cielo nocturno 
es la Luna. Se han estudiado sus 
fases desde los tiempos más re- 
motos. De una luna nueva a 
otra, si la observamos cada no- 
che, podemos ver primero un 
fino creciente. Luego, a lo largo 
de dos semanas, el creciente se 
hace mayor hasta llegar a la luna 
llena. Y luego va desapareciendo 
a lo largo de las próximas dos 
semanas hasta la siguiente luna 
nueva. El período exacto entre 
una luna nueva y la siguiente es 
de 29 días, 12 horas, 44 minutos 
y 2,9 segundos. 

Aquí utilizaremos un método 
simplificado para calcular las fa- 
ses (edad) de la Luna. No inten- 
tes comprender las matemáticas 
empleadas, ya que son demasia- 
do complicadas. Pero el resulta- 
do no tiene más que dos días de 
error. El programa te da la fase 
de la Luna en días desde la últi- 
ma luna nueva. Si te fijas en el 
diagrama, encontrarás la fase co- 
rrespondiente en la que se hallará 
la Luna. 


Se puede comprobar la exactitud 
de este programa observando al- 
gunos eclipses de Sol y de Luna 
cuyas fechas vienen indicadas en 
los libros de astronomía. 


Luna llena 


11 14/15 18 


dis 


Es cosa sabida que sólo se 
puede producir un eclipse de Lu- 
na cuando hay luna llena, y un 
eclipse de Sol cuando hay luna 
nueva, cosa que puedes leer en 
cualquier libro de astronomía. A 
continuación te damos las fechas 
de los eclipses pasados y futuros. 
¿Podrías decir cuáles son de Sol y 
cuáles de Luna? 


) 3 MAYO 1939 
(2) 14 ENERO 1926 
(3) 27 NOV 1928 
(4) 9 NAYO 1929 
(5) 28 ABRIL 1930 
(6) 2 ABRIL 1931 
(7) 30 JULIO 1935 
(8) 3 mAYO 1939 
(9) 19 DIC 1945 

) 26 JULIO 1953 
) 25 DIC 1954 

) 8 JUNIO 1956 
) 30 DIC 1963 

) 4 JUNIO 1974 
) 18 ABRIL 1977 
) 16 FEB 1980 

) 6 JUL 1982 

) 4 DIC 1983 

) 30 MAYO 1984 
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21) 7 OCT 1987 
22) 6 AGOSTO 1990 
23) 21 MAYO 1993 
24) 27 SEP 1996 

) 11 AGOSTO 1999 
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Luna nueva 


22 25 29 


Fases de la Luna 
Resultados previstos 
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LA LUNA 


LISTADO E NOTAS DE LINEA 
Línea 110: Establece el área del 
100 REM LUNA texto en la pantalla. 
110 GOSUB 1100 
120 LET X=0:LET Y=4:1GOSUB 1700: Líneas 120-160: Imprimen men- 
PRINT" INTRODUCE .EL.DIA:."x sajes para que introduzcas el día, 
130 GOSUÉE 2100:LET D=k mes y año (en cuatro cifras) que 
140 PRINT:PRINT "AHORA.EL.MES. (1-12) 2," : te interesa, 
150 GOSUB 2100:LET M=k 
1560 PRINT:¿PRINT "ANO (4 CIFRAS) 2," s Líneas 170-200: Calculan la edad 
170 GOSUB 2100:LET Y=k de la Luna. 
180 LET Z=Y/1913 
LET TSINT(EADD CINTO) Líneas 210-220: Imprimen la 
190 LET Z=2+6* INT (Y/400) + edad de la Luna en una fecha 
INT (Y/300)-INT(Y/100)+M+D determinada y finalizan el 
200 LET A=INT(Z/3D)ILET Z=Z-30*A Pagina 
210 PRINT¿PRINT "EDAD.DE.LA.LUNA.=," za 
" DIAS" 
220 PRINT:ESTOP Respuestas en la página 116 
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Este programa es una nueva ver- 
sión de la antigua maquinita de 
Pinball que aún se puede encon- 
trar en algunas salas de juego o 
en tiendas de antigúedades. Una 
bola entra por la parte superior 
de la máquina y la recorre hasta 
llegar a la parte inferior. Por el 
camino va rebotando contra una 
serie de obstáculos que influirán 
en la puntuación. 

Lo más interesante que tiene 
una máquina de este tipo es que 
se pueden prever las probabilida- 
des de que una bola acabe en un 
agujero determinado de la parte 
inferior de la máquina utilizando 
el triángulo de Pascal, una regla 
matemática que se descubrió en 
el siglo XVIL 

Blaise Pascal (1623-1662), bri- 
llante filósofo y matemático 
francés, se interesó en este pro- 
blema cuando conoció al Cheva- 
lier de Mere, conocido jugador 
obsesionado por las probabilida- 
des de sacar diferentes combina- 
ciones de dados. Pascal le enseñó 
cómo se podía crear un triángulo 
de probabilidades. Si aplicamos 
este triángulo al Pinball, se puede 
utilizar para prever las probabili- 
dades de que la bola acabe en un 
agujero dado. Por ejemplo, sólo 
hay una probabilidad en 64 de 
que caiga en los agujeros de las 
extremidades, pero hay 20 proba- 
bilidades en 64 de que caiga en el 
centro. 


Resultados predichos 


1 Dl 
1.476. 4:41 
die oO VO 
16: 1507-20-10: 0:41 


Número 
de posibilidades 


1 
2 


16 
32 


En el programa siguiente, el 
ordenador crea el triángulo de 
Pascal y comprueba si los resul- 
tados obtenidos cuando se deja 
caer la bola 64 veces son los 
mismos que los resultados pre- 
vistos por Pascal. 


Línea 110: Establece una dimen- 
sión con siete espacios. 
Línea 120: Define el 
texto en la pantalla. 


área del 


se] 
Línea 130: Define el valor inicial 
del número de jugadas. 


Líneas 140-220: Imprimen el títu- 
lo del programa en la pantalla y 
la disposición de la mesa de pin- 


ball. 


Líneas 230-240: Colocan la pelo- 
ta en la parte superior de la 
mesa. 


Líneas 250-260: Borran la pelota 
cuando ésta ha alcanzado la si- 
guiente posición. 
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Líneas 270-290: Mueven la pelota 
por entre los obstáculos. 


Línea 300: Elige al azar si la 
pelota va hacia la izquierda o 
hacia la derecha. 


Línea 310: Se anade uno a la 
posición en la que ha caído una 
bola. 


Líneas 320-330: Imprimen los re- 
sultados. 


Línea 340: Añade uno al conta- 
dor para el número de jugadas. 


Líneas 350-410: Imprimen los re- 
sultados después de 64 jugadas y 
los comparan con los resultados 
previstos. Luego acaban el pro- 
grama. 


PRINT O"PREDICCION.D 
PRINT+PRINT".1.6.15 
PRINT:PRINT 
PRINT:¿FOR 1=1 TO 7 
TD) NEXT 
PRINTER 


A 
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PROBLEMAS DE PALABRAS 


Hace casi 1.000 años el rey Canu- 
to reinaba sobre Inglaterra, Di- 
namarca y Noruega. Disgustado 
por las patentes pruebas de adu- 
lación que le mostraban sus cor- 
tesanos, decidió darles una lec- 
ción. Un día se sentó a la orilla 
del mar y ordenó a la marea que 
no le mojara. Cuando el agua 
llegó hasta él y le mojó, sus 
súbditos se dieron cuenta de que 
hasta un rey tan poderoso como 
él no era al fin y al cabo nada 
más que un hombre. 

En este juego (para dos o más 
jugadores), el rey Canuto repite 
su lección de humildad. Uno de 
los jugadores (el que elige las 
palabras) tiene que teclear una 
palabra de un máximo de 13 
letras, sin que el otro jugador la 
vea. El ordenador imprime en- 
tonces en la pantalla la figura del 
rey Canuto y, junto a él, una 
línea de espacios en blanco, uno 
para cada letra de la palabra 
secreta, 

Luego el jugador (o los juga- 
dores) que tiene que encontrar la 
palabra introduce una letra. Si 
esta letra está en la palabra secre- 
ta, el ordenador la imprime en su 
posición. Si no es la letra correc- 
ta, la marea empezará a subir y a 
cubrir al rey Canuto. 

El juego consiste en descubrir 
la palabra secreta antes de que se 
ahogue Canuto. 


Líneas 110-120: Definen el área 
de la pantalla e imprimen el pri- 
mer mensaje. 


Líneas 130-140: Almacenan la 
palabra secreta como K$, 


Líneas 150-240: Dibujan la figura 
de Canuto e imprimen el título 
del juego. 


Línea 250: Envía el programa a 
una subrutina. 


Líneas 260-330: Imprimen un 
mensaje para el jugador que está 
intentando adivinar la palabra 
enseñándole el número de letra 
con una fila de espacios. 


Líneas 340-530: Definen un bucle 
para que, cada vez que te equivo- 
ques, la marea suba una línea. 


Línea 360: Para el programa 
cuando la marea ha cubierto a 
Canuto o cuando se ha encontra- 
do la palabra secreta. 


Línea 370: Almacena la letra que 
se ha adivinado. 


Líneas 380-470: Comprueban si 
la letra está en la palabra secreta. 
Si está, la imprime en pantalla, 


Línea 480: Detiene la marea si se 
ha adivinado una letra y prepara 
la jugada siguiente, 


Líneas 490-520: Una marca de 
asteriscos que se traga a Canuto, 


Línea 550: Acaba el programa. 


Líneas 560-590: Forman una su- 
brutina que define la posición 
para imprimir el texto. 


VARIACIONES 


Si quieres añadir mensajes de 
victoria o de derrota al progra- 
ma, entonces añade al listado: 


352 IF T=0 THEN G0TO £00 

354 IF N=1 THEN GOTO 700 

500 PRINT:PRINT ")>MAREA,ALTA<C" 
610 PRINT 

£20 PRINT "LA.PALABRA.ES ";K$ 
630 STOP 

700 PRINT:PRINT “>BIEN.HECHOX<" 
710 PRINT 


720 IF T)6 THEN GOTO 750 
730 PRINT "PERO.CANUTO" 
740 PRINT "ESTA .MUY MOJADO" 
750 STOP 


El programa, tal como está 
ahora, ahoga a Canuto si te equi- 
vocas 13 veces. Si quieres que el 
juego sea más fácil o más difícil, 
tendrás que cambiar el valor de 
13 en la línea 340 a un número 
mayor o menor. Los jugadores 
más expertos cambiarán la línea 
520 a: 


520 PRINT “Rp” 


La persona que intenta adivi- 
nar la palabra tendrá que recor- 
dar las letras que ya ha introdu- 
cido. Si quieres que el ordenador 
no permita que se elija una pala- 
bra de más de 13 letras, utiliza la 
línea siguiente: 


135 IF LEN(K$)>13 THEN GOTO 120 


REM CANUTO 
110 GOSuUbB 


ISOC OSuUE Eon 


1590 PRDNTS Mb 
LOU RRE o 
170 PRINT".. (3. 
1 
1 


200 ¡PRENDA ala 
ELO PRENTO ok 
220 PRINT",.===" 
E PRINTS 
240 PRINT". WN," 
230 GOSUB 560 
SGU PRENT SES 


290 GOSUB 


PRINT"="; 
NEXT ON 


1100 
120" PRINT "TECLES.LNA. PA 


1700 
300 FOR N=1 TO LEN 


a RANOTO, 


” 


80 PRINT"O..V..0" 
20 PRINT"OOHHHOO" 


COGE. UNA.LETRA" 
LEN (KE) +6) /241 


E 


) THEN OLETON=N-1 


THEN BOTG 350 


LABRA. SECRETA. " 
140 GOSUB 2300: PRINT:¿PRINT 


INTRODUCCION 


Hay un juego muy antiguo que 
consiste en hacer escaleras de 
palabras. Por ejemplo, ¿puedes 
cambiar ROSA en PINO en cin- 
co jugadas? Sólo puedes cambiar 
una letra a la vez, formando 
siempre una nueva palabra. Esta 
sería una posibilidad: 


ROSA: 1) RISA 4) PICO 
2) RICA 5) PINO 
3) PICA 


Ahora inténtalo con una pala- 
bra un poco más difícil. 

La ESCALERA DE PALA- 
BRAS es un juego para dos o 
más jugadores. El primero elige 
una palabra de cuatro letras, 
Luego los demás van cambiándo- 
le una letra y formando nuevas 
palabras. El que no halle una 
palabra pulsa RETURN (o EN- 
TER o NEWLINE) y continúa 
otro jugador. Cuando nadie sepa 
seguir el ordenador dirá quién ha 
ganado. Hay que recordar una 
regla: si se ha dejado ocho veces 
una letra en la misma posición el 
jugador siguiente tendrá que 
cambiar dicha letra antes de 
cualquier otra. Por ejemplo, si un 
¡jugador introduce la palabra CA- 
SA y la lista de palabras ya con- 
tiene por lo menos siete palabras 
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AO) 
120 
130 
140 
a, 
150 
170 
130 
LAN 
200 
2) 
220 
me 0) 
240 


Cl 


GOSUB 1100 


GOSUE 
GOSUB 


2100 
2900 


FOR N=1 TO K 
PRINT "JUGADOR. 
LET VS (N)=k$ 
NEXT ON 

GOSUB 1300 

DIM L (4,26) 
GOSUB 3000 

LET T=0 

GOSUB 1200 

IF O T>0 
“ULTIMA. PALABRA. 
IE OT>O THEN 
PRINT 

LET R=R+1 
IFORPK THEN 


260 
27 
280 
220 
300 
Peg E: 
32) 


¡[ar 


PRINT V$(R> 
PRINT 
LENA 


REM ESCALERAS DE PALABRAS 


PRINT"TECLEAR. NUMERO. DE. JUGADORES" 


PRINT"TECLEAR LOS NOMBRES É 


THEN PRINT 


PRINT 


PRINT"TECLEAR.UNA. PALABRA: " 


FEO 


“Mt SOSUB 2200 


DES 
Vs CLIO 


R=] 


EST 


que terminan por A, el ordena- 
dor advertirá “nueva letra 4” y la 


siguiente persona tendrá que 
cambiar la cuarta letra (en este 
caso la A). 


[NOTAS DE LINEA | 


Línea 110: Define el área del 
texto en la pantalla, 


Líneas 120-150: Imprimen men- 
sajes para los jugadores. 


Línea 130: Almacena el número 
de jugadores como una variable 


Línea 140: Define una dimensión 
V$ para los nombres de los juga- 
dores. 


Líneas 160-190: Crean un bucle 
que almacena los nombres como 
elementos de V$. 


Línea 200: Almacena un número 
aleatorio R, que determinará 
el jugador que ha de empezar. 


Línea 210: Define una dimensión 
L para almacenar cuántas veces 
se ha utilizado cada letra del 
abecedario en las cuatro colum- 
nas de la lista de palabras. 


Líneas 220-230: Definen una di- 
mensión W$ para almacenar un 
máximo de 60 palabras y una 
variable T para contarlas, 


Líneas 240-250: Borran la panta- 
lla e imprimen un mensaje. 


IF T=0 
FOR P=x4 TQ 1 
GOSUB 2700 


OR Kk$="" 


LETOL(P, Atos LCP, Aro4 +1 
EF EGP AGE THEN LET 


MEXT 

O 
FOROS O 

GOSUB 1700 

LE T+YRPAHA 

IEA 


Pará 


THEN 


PE AD THEN PRD 


STRÍ(LI GUA 
GOSUB 2200 

IE O K$="" THEN 
LET T=T+1 

LET Ws$ (T)=K$ 
LET OLWN=R 
LET P=0 
LET P=P+1 
IF O P<K AND 
PRINT 
PRINT VB (LW); 


IATA 


Línea 260: Imprime el nombre 
del jugador que ha introducido la 
última palabra. 


Líneas 280-320: Determinan el 
número del siguiente jugador, 
imprimen su nombre y le piden 
que introduzca una palabra. 


Líneas 330-390: Forman una ruti- 
na que comprueba si se ha repeti- 
do alguna letra. La línea 340 im- 
pide que se ejecute esta rutina al 
principio del juego o si el último 
jugador ha pasado. 


Líneas 400-440: Imprimen en lis- 
ta las 15 últimas palabras que se 
han introducido. 


Línea 450: Imprime un mensaje 


THEN GOTO 
STEP 


PRINT 


GOTO 


THEN ESTO 


1 


Pol 


ATAN 


"CAMBIAR LETRA." 3 


So 


24D 


pidiendo al siguiente jugador que 
cambie una letra que se ha man- 
tenido en la misma posición 
ocho veces. 


Línea 460: Almacena la última 
palabra que se ha introducido 
como K$, 


Líneas 470-500: Añaden la última 
palabra a la lista en WS si K$ no 
es una cadena vacía «» que mues- 
tra si un jugador ha pasado. 


Línea 55: Indica el ganador. 


Líneas 530-560: El juego se acaba 
cuando se han introducido 60 


palabras; si no, vuelve a la línea 
240. 


En este programa el ordenador 
crea un código aleatorio que 
cambia por el mensaje que tú le 
introduces, Se sustituye cada le- 
tra por otra, de modo que A se 
puede convertir en Q, B en T, 
ete. 

Existe una gran posibilidad de 
códigos. Con este programa sa- 
brás si eres capaz de convertirte 
en un experto de la codificación. 

Convence a un amigo para que 
escriba un mensaje secreto, rela- 
tivamente corto, de unas 20 le- 
tras, pero sin números, 

El ordenador convertirá el 
mensaje en código. Debajo escri- 
birá espacios para el mensaje 
descifrado. Intenta adivinar pri- 
mero las palabras de una letra, 
luego las de dos, etc. Puedes 
suponer que Q significa A en el 
mensaje original. Teclea Q y lue- 
go A. Pulsa RETURN (o ENTER 
o NEWLINE). 

Si te has equivocado, pierdes 2 
puntos. Si has acertado, la letra 
correcta aparecerá en el espacio 
correspondiente. Continúa hasta 
que hayas descifrado todo el 
mensaje. Con la práctica te darás 
cuenta de que hay algunas letras 
que aparecen con mayor frecuen- 
cia que otras. 


Para que se acabe el programa 
cuando se haya descifrado el 


Líneas 13082150: Almacenan el 
mensaje como K$ y su tamaño 
como L. 


mensaje, añade las líneas siguien- 
tes al listado y haz las sustitucio- 
nes necesarias, 


Líneas 1408610: Crean un con- 
tador para los puntos perdidos 
por jugadas equivocadas. 


155 LET 0=0 
410 IF M(P)<932 THEN PRINT "-";: 
LET Q=0+1 
570 IF H$=X3 AND K$=Y$ THEN 
LET H=1:LET 0=0-1:60T0 590 
£20 IF Q>0 THEN GOTO 430 


630 LET T=3:60SUB 1400:50suB 1200:sTOP | nea 160: Borra la pantalla, 


Líneas 170-190: Definen tres di- 
7 | mensiones C, J y M. 

Líneas 110-120: Definen el tama- 
ño del texto y su posición, e 
imprimen el primer mensaje en 
la pantalla. 


Líneas 200-220: Almacenan los 
números del código del ordena- 
dor (65, 66, 67, etc.) para las 26 
letras del abecedario, 


REM CODIGO 

GOSuUB 1100 
PRINT"TECLEAR. MENSAJE. SECRETO" 
PRINT:GOSUB 2200 
LEFT S=0 

LET L=LEN (K%) 
GOSUB 1201 

DAM TE C2067 

DEM ACES 

DIM MULA 

FOR N=1 TO 26 
LET CCND =N+04 
NEXT ON 

FOR N=25 TO 2 
1300 


GOSuUE 
LET T=CGON+13 
LE ECN CURO 
ES GAURO ST 
NEXT ON 

EOR P=1L TO 1 


GOSUB 2700 

LET M(P)=A 

IF A=32 THEN LET J(P)=A 

IF A%932 THEN LET J(P)=C(A-64) 
LET R=J(P)-64:60SUB 2500: 
PRINT R$; 

NEXT P 

LET X=0 

LET Y=F+2 


Líneas 230-280: Recolocan al 


azar las letras en la dimensión C. 


Líneas 290-350: Crean un bucle 
para que imprima letra por letra 
el mensaje codificado, dejando 
espacios entre las palabras. 


Líneas 360-470: Borran una línea 
de la pantalla y colocan la posi- 
ción de imprimir, 


Línea 450: Imprime mensajes con 
los puntos que pierdes cuando te 
equivocas. 


Líneas 480-490: Almacenan como 


GOSUB 1700 

390 FOR P=1 TO L 

IF MP) 332 THEN 

IF MP3 THEN 

NEXT P 

LET O Y=E+4 

GOSUB 1700 

PRINT"TIER 
“ PUNTOS" 

460) PRINTS 

PRINT". 


A 
610 


GS la primera letra que tecleas 
del mensaje codificado, y luego 
te piden que introduzcas la letra 
correcta. 


Línea 500: Almacena la segunda 
letra que introduces. 


Líneas 510-600: Imprimen sólo 
las letras que has adivinado en 
sus posiciones correctas. 


Línea 620: Pasa a la jugada si- 
guiente. 


PRENI. 


IDR INT a 


PRINT"=" 


so 


POMIFICA *3 
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Este es un juego para dos jugado- 
res, y se usa un tablero de 7x7, 
Cada jugador va eligiendo una 
letra del abecedario y la mete en 
una de las casillas (identificadas 
por su número de columna) del 
tablero. Si esta letra completa 
una o más palabras (en vertical u 
horizontal) de, como mínimo, 
tres letras, ganará puntos de la 
manera siguiente: 

3 letras=1 punto 

4 letras=3 puntos 

5 letras =5 puntos 

6 letras=10 puntos 

7 letras =20 puntos 

En el diagrama que aquí mos- 

tramos puedes ver un ejemplo 
después de 12 jugadas. 


=><> 
amy 
m>xZ 


E 
+ Ss T x 
Ho 1 + E + 3 + ES 6 E A + 


Si por ejemplo el siguiente ju- 
gador pone una M en la tercera 
columna, obtendrá un total de 5 
puntos por haber formado las 
palabras MESA”, “MES” y 
“MAS”. El jugador deberá intro- 
ducir este tanto para que el orde- 
nador pueda ir tomando nota de 
los resultados y decir quién es el 
ganador una vez que se hayan 
completado las 49 casillas. 


Línea 110: Define el área del 
texto, 


Línea 120: Define una dimensión 
S para almacenar los puntos de 
cada jugador, 


Línea 130: Define una dimensión 
H para almacenar las alturas de 
las siete columnas. 


Línea 140: Introduce la variable 
T para contar el número total de 
letras en el tablero. 


Líneas 150-210: Imprimen el ta- 
blero. 


Línea 220: Introduce la variable P 
para los jugadores; toma los va- 
lores 1 y 2, 


Línea 230: Llama a una subruti- 
na (líneas 490-540) que borra 
todos los mensajes y coloca la 
posición de imprimir. 


Líneas 240-250: Piden al jugador 
que elija una columna y almace- 
nan su número como K, 


Línea 260: Comprueba que la 
columna K no está completa. 


Líneas 270-290: Piden al jugador 
que elija una letra y la almace- 
nan como K$, 


Líneas 300-310: Añaden uno al 
contador de letras y aumentan la 
altura de la columna. 


Líneas 320-360: Imprimen K$ en 
su posición correcta. 


Línea 370: Pide al jugador que 
introduzca los resultados. 


Línea 380: Espera a que se intro- 
duzcan los resultados. 


Línea 390: Suma los resultados 
introducidos al resultado almace- 
nado. 


Línea 400: Pasa al siguiente juga- 
dor. 


Línea 410: Mueve el programa a 
la jugada siguiente si aún quedan 
casillas vacías. 


Líneas 430-480: Imprimen los re- 
sultados finales y acaban el pro- 
grama. Las líneas finales son una 
subrutina. 


En este juego el ordenador iden- 
tifica a los jugadores como 1 y 2, 
Quizás puedas añadir algunas lí- 
neas para que el ordenador os 
identifique con vuestros nom- 
bres. Podrías usar los nombres 
en vez de la variable P en las 
líneas 240, 280 y 370. Si no estás 
muy seguro de cómo hacer esto, 
mira el programa ESCALERAS 
DE PALABRAS para darte una 
idea. Una versión algo más difícil 
que ésta, y que no necesita cam- 
biar el programa, es una donde 
se consiguen puntos formando 
palabras en las ocho direcciones, 
es decir, en horizontal, vertical y 
diagonal, en cualquier dirección. 


LD 


VARIACIC NA 


REF PALABRAS CRUZADAS 

GOSUÉE 1100 

DEMOSC2A 

A 

LET T=0 

LET AN 2=8 

EUR TO 

GOsuUB 1700 

A e 

NEXT Y 

SOSUÉE 1700 

PRINT “21 24 3443434647240 

LET T 

GOSUE 490 

PR SUDAR» ea COLINA. 
GOSUE 2100 

BE AOS 20 TAE OO SL) 

GOSUB 4%0 

PRIBNO O JUGALOR. gra LIRA: 
220 

Y=T+41 
HORA HOR 
EST E 
Y=F= HN 
e) 
ES 
GOSUE 40 
PRINT “JUGADOR RS RESUETADO 
GOSUB 2100 

METEO ES NE 

LET P=3=P 

IF TX<49 THEN GOTO 230 

SOSUB 490 

LET T=4:GOSUB 1400:G60SUE 2800 

LET OX=SO0:LET Y=4 

GOSUB 1700 
PRINT“JUSADOR 1d. TIENES "15 (17 2PRINT 
PRINT-JUGADOR 2 DLENES. CS (e RARINT 
STOP 

LET X=W/2-10 

LET Y=F+6 

GOSUE 1700 

AN A a O oo AS ll 

GOSUB 1700 

RETURN 


A casi todos los fanáticos de las 
palabras les gusta descifrar ana- 
gramas, Estos son palabras for- 
madas con las letras de otra pala- 
bra, y los encuentras a menudo 
en las claves de los crucigramas. 
En otros anagramas, las letras 
están escritas en desorden y no 
forman una palabra. 

Este programa produce ana- 
gramas de una lista de como 
máximo 10 palabras. En este jue- 
go para dos, un jugador tiene 
que introducir las palabras (que 
pueden tener como máximo siete 
letras). Luego el ordenador im- 
prime los anagramas uno por 
uno y espera a que le den la 
solución. Si te equivocas, tienes 
que intentarlo de nuevo. Si has 
acertado, pulsa cualquier tecla y 
el ordenador imprimirá la pala- 
bra siguiente. Una vez resuelto, 
todos los anagramas de la lista, 
el ordenador imprime un mensa- 
je que te informa de que el juego 
se ha acabado. 


Línea 110: Define el área del 
texto en la pantalla. 


Línea 120: Imprime un mensaje 
en la pantalla. 


Línea 130: Almacena el número 
pedido en la línea 120 como K. 
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Líneas 140-160: Define las di- 
mensiones VS, WS y L. 


Línea 180: Imprime un mensaje 
para el primer jugador. 


Líneas 190-230: Crean un bucle 
que se encarga de las palabras 
introducidas. 


Líneas 240-510: Crean un bucle 
que imprime los anagramas uno 
a uno. 


Línea 250-300: Borran la pantalla 
y almacenan las letras de la pala- 
bra que se van a mezclar como 
elementos de VS. 


Líneas 310-360: Desordena los 
elementos de VS. 


Líneas 370-390: Imprimen el ana- 
grama. 


Líneas 400-410: Dejan espacios 
entre los diferentes mensajes de 
la pantalla, 


Línea 420: Imprimen mensajes en 
la pantalla. 


Línea 430: Espera a que se intro- 
duzca la solución y la almacena 
como KS$, Si la solución es co- 
rrecta, la línea 450 avanza el 
programa hasta los mensajes de 
victoria en la línea 490, Si no, el 
programa pasa a la línea 460 y 
pide al jugador que intente desci- 
frar otra vez el anagrama. 


Línea 500: Espera a que se pulse 
una tecla. Si hay más palabras 
para descifrar el programa, pasa 
a la línea 510 y luego vuelve a la 
línea 240, Si no, el programa 
pasa a la línea 520 y acaba el 
juego. 


VARIACIONES | 


2. hacer este juego todavía 
más interesante si lo conviertes 
en una carrera contra reloj. Las 
líneas que hay a continuación 
añaden una rutina de tiempo al 
programa. Cuando creas que sa- 
bes cuál es la solución del ana- 
grama, pulsa la primera letra de 
la respuesta y esto parará el reloj. 
Pero sólo se detendrá si es la 
respuesta correcta. Entonces po- 
drás teclear la palabra entera. 

Si te equivocas, el ordenador te 
añadirá puntos y volverá a poner 
en marcha el reloj. El ganador es 
el que consiga menos puntos des- 
pués de completar los diez ana- 
gramas., 


265 LET S=D:LET T=1 

401 GOSUB 1400 

402 LET S=5+H 

403 G0SUB 1600 

404 IT K8 <> "" AND K$ <> PS THEN 
LET S=5+20 

405 LT V=12:LET X=0:60SUB 1700 

406 PHTNT “TIENES. "5S;".PUNTOS" 

407 IF K$0 PS THEN GOTO 401 

408 PRINT 

475 LET S=5+50 


100 
0, 
de) 
130 
140 
150 
160 
170 
1280 


1910 
200 
e) 
220) 
Pe, 
24D 
E) 
260 
E, 


REM ANAGRAMA 
GOSUE 1100 


PRINT"CUANTAS. PALABRAS o..." 
PRINTiG6OSUB 2100 

GOSUB 29200 

GOSUB 3000 


DDR ION 


PRINT 
PRINT"AHORA. TECLEA.LAS PALABRAS. 
PRINT 
FOR N=1 TO K 
GOSUB 2200 
LET OWEN) =k8 
LETOL OD eLEN CR) 
NEXT ON 
FOR J=1 TO K 
GOSUE 1200 

1 STEP -1 

E Í 


a A 


PRINT 
PRIRNTOUTE 
PRD 5d 
PRINT"., 


STOP 


4 . 4 moon 


¿LET E 


e 
“ 


El misterioso rey de Palabrama- 
nía podría ser un valioso amigo, 
aunque también puede ser tu 
peor enemigo si haces que se 
enfade, Esta es una oportunidad 
de visitar Palabramanía y de im- 
presionar a su extraño gobernan- 
te, siguiéndole la corriente en sus 
manías, 

Al rey le encantan los regalos. 
Le puedes ofrecer cualquier tipo 
de regalos, pero tienes que obe- 
decer una ley que ha impuesto el 
rey. Unicamente aceptará regalos 
que contengan su letra preferida 
del abecedario. Desgraciadamen- 
te esta letra constituye un secre- 
to. Para que el rey siga siendo tu 
amigo, deberás adivinar la letra 
preferida por él tan pronto como 
sea posible, deduciéndola a partir 
de la selección de regalos que le 
haces. 

Mientras estás jugando, el or- 
denador llevará la cuenta de tus 
puntos. Los puntos aumentan 
con la cólera del rey. El ordena- 
dor añadirá un punto si el rey 
acepta tu regalo que contiene la 
letra secreta. Si rechaza un regalo 
porque no la contiene, el ordena- 
dor añadirá dos puntos en tu 
saldo negativo. 

Si crees que has acertado la 
letra y te equivocas, te llevarás 
diez puntos. Si adivinas la letra, 
el rey te dará una recompensa. Si 
llegas a los 30 puntos pierdes el 
juego. 


Línea 110: Define el área del 
texto en la pantalla. 


Líneas 120-130: Eligen un núme- 
ro aleatorio del 1 al 26 y lo 
almacenan como R. Representa 
la letra preferida del rey. 


Línea 140: Cambia el número 
aleatorio por una letra del abece- 
dario. 


Línea 150: Define la posición del 
mensaje en la pantalla. 


Líneas 160-180: Imprimen 
mensaje en la pantalla. 


un 


Línea 190: Almacena el regalo 
ofrecido por el jugador como la 
variable K$. 


Líneas 200-230: Definen un bucle 
que comprueba KS, letra por 
letra. 


Líneas 240-290: Imprimen men- 
sajes en la pantalla y añaden 
puntos al resultado si el rey re- 
chaza el regalo, 


Líneas 310-320: Imprimen 
mensaje en la pantalla. 


un 


Líneas 350-360: Dependiendo de 
tu respuesta, el ordenador pasa a 
líneas anteriores o posteriores. 


Líneas 370-380: Imprimen un 


mensaje en la pantalla. 


Línea 390: Almacena la respuesta 
como K$, 


Línea 400: Si K$ es igual a la 
letra almacenada como R, el pro- 
grama pasa al mensaje de victo- 
ria en las líneas 510-530, 


Líneas 410-450: Añaden los 10 


puntos e imprimen un mensaje Si 
te has equivocado de letra. 


Línea 460: Te da otra oportuni- 
dad de ofrecer otro regalo. 


Líneas 470-490: Si llegas a los 30 
puntos, pierdes el juego. 


Si quieres que el juego sea más 
difícil, cambia el 30 de la línea 
460 del listado a 25, o incluso a 
20. 

El rey es todavía más exigente 
con los jugadores expertos. Los 
regalos deberán contener su letra 
preferida, pero no podrán tener 
la letra que le resulta más desa- 
gradable. Intenta añadir las lí- 
neas siguientes: 


142 LET Dé=R$ 

144 G0SUB 1300 

146 GOSUB 2500 

148 1F B$=R$ THEN 5070 14 

195 LET F=1:LET 6=0 

215 IF P9=5% THEN LET F=0 

220 IF PS=R4$ THEN LET G=1 

450 PRINT "LAS.LETRAS.ERAN.*; 
Ab: ",":D$ 

510 PRÍNT “NO. GUSTA.LA.LETRA?" 

512 60SUB 2200 

514 IF K$(9B$ THEN SOTO 410 


También puedes hacer los 
cambios siguientes: 

En la línea 250 cambia P=100 
por F"G= 

En las líneas 260 y 290 rempla- 
za P 100 por FFG=0 

En la línea 460 remplaza 30 
por 50 


Te habrás dado cuenta de que el 


ordenador trata tus regalos sim- 
plemente como cadenas de letras. 
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Si le ofreces al rey “BASURA” o 
“QBDAV” en vez de “ORO” o 
“PLATA? el ordenador no protes- 
tará. 

Aunque prefieras ofrecerle al 
rey palabras de verdad, todas 
deberían de cubrir las 26 letras 
del abecedario, aunque la lista de 
regalos sea un tanto extraña. In- 
cluye palabras como, por 
ejemplo: 


ZAPATO ROMPECABEZAS 
YATE CHAMPIÑONES 
GIRAFA HACHA 

VASO PIJAMA 


" MEXT 


REM REY DE LáS PALABRAS 
GOSUBE 1100 
LET N=26 

BOSE Sd 


USB 23 
SOSuUE 1 
GOSuE 1700 

PRINT"GUE., REGALO. TRAES . Ca PRIST 
PRINTUPARA, Ela RSE 
PRINT"REY. DE, PALABRAMANTAC*GPRIMT 
GOSUB 2200 
FOR P=L TO LEEMOS) 
SOSuUE 2600 

DF PRSRS THEN LE PR 

p 


A e ia dl 
IF P=100 THEN PRINT 

SL ADM Es Els REA, 3e 
1 PZ2100 THEN PRINT 

E RECHAZA EL. REDALO==>. 
PRINT 
RE Sl 
DEC PEIOD THE Le Seanrl 
PRINT 
PRINT"HAS., ADIVINADO «le ls E PRINT 
PRINT"LETRA.DEL..REY.S/N?":PRINT 
GOSuUE 1300 
GOSUE TSUDELET ASULLED ets 
GOSUE 1700 
1 G$="N" THEN GOTO 440 
E BS" TEEN GOTO 310) 
PRENTOS. TEGLES 4.5 LE lA... eran 
PRINT"..PREFERIDA.DEL.REY..":PRINT 
GOSUE 2200 
DE K$=RS THEN. GOTO 040 
CET S+5+40 
BOSUEB 1200 
PRINT"HMAaLá,. SUERTE . 


SOTO 150 
PRINT"EL.REY.ESTA.ENFADADO . .":PRINT 
PRINT “SAL... CORRIENDO sa e ERUNT 
PRINT"LA.LETRA.ERA. "¿R$ :PRINT 

GOTO 540 

PRINT",.X<2¿HAS ACERTADOS, "2 PRINT 
PRINT"HAS.GANADO. TU, LIBERTAD. "¿PRINT 
PRINT"... COMO. CIUDADANO. DE. 
PALAEBERAMANTA. .."GPRINT 

STOP 


al 
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JOTTO es un clásico juego deduc- 
tivo, Tienes que ir eliminando las 


respuestas incorrectas una por 
una, como si fueras un detective, 
hasta que encuentres la solución 
a un problema. 

En esta versión del juego para 
dos personas, un jugador intro- 
duce la palabra secreta. La pala- 
bra puede ser tan larga como 
quieras, pero es mejor si la eliges 
de cuatro o cinco letras, 

El otro jugador tiene que in- 
tentar descubrir la palabra en el 
menor número de jugadas posi- 
ble. En cada jugada deberá intro- 
ducir una palabra con el mismo 
número de letras. El ordenador 
te da un cierto número de puntos 
en la pantalla. Te da un punto 
por cada letra correcta, aunque 
no esté en su posición. 

Los puntos son una clave para 
encontrar las letras correctas. Sin 
embargo el hecho de que consi- 
gas, por ejemplo, 5 puntos para 
una palabra de cinco letras no 
quiere decir que hayas encontra- 
do la palabra. Podrías haber en- 
contrado un anagrama. El juego 
continúa hasta que hayas adivi- 
nado la palabra correcta. 


Línea 110: Define el área del 
texto. 


Línea 120: Define una dimensión 


V$ donde está almacenada la 
palabra secreta. 


Línea 130: Imprime un mensaje. 


Línea 140-160: Almacenan la pa- 
labra secreta como la variable A$ 
con el tamaño L. 


Líneas 170-180: Borran la panta- 
lla e imprimen un mensaje infor- 
mándote del número de letras 
qúe tiene la palabra. 


Líneas 190-200: Introducen las 
variables T (número de jugadas) 
y S (número de puntos). 


Líneas 210-250: Almacena letras 
de la palabra secreta A$ como 
elementos de la dimensión V$. 


Línea 260: Almacena la palabra 
que pruebas como K$. 


Línea 270: Comprueba que K$ es 
del tamaño adecuado, 


Líneas 290-320: Imprimen K$. 


Líneas 330: Si K$ es la palabra 
secreta, el programa pasa al 
mensaje de victoria. 


Líneas 340-420: Compara KS$, le- 
tra por letra, con la palabra se- 
creta almacenada en V$, Cuando 
encuentra una letra igual, la línea 
380 añade un punto al resultado. 


Línea 430: Imprime el resultado. 


Línea 450: Manda el programa a 
la línea 200 y prepara la dimen- 
sión V$ para la próxima palabra. 


Líneas 460-480: Imprimen el 
mensaje de victoria, imprimen el 
resultado y acaban el programa. 
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Algunos jugadores de JOTTO pre- 
fieren que se les indique si hay 
alguna letra en su posición co- 
rrecta. Si añades estas líneas, el 
ordenador te dará dos puntos 
por una letra correcta en su posi- 
ción, y un solo punto si está en 
posición equivocada. 


Ed FOR P=i TO L 

334 G0SUB 2600 
335 IF PS=V4$(P) THEN LET S=S+1 
338 NEXT P 


100 
110 
10 E! 
130 
140 
100 
1060 
170 
180 


190 
200 
210 


270 
1) 
270 
300 
310 
320 
330 
340 
DO) 
TN) 
370 
380 
3910 
400 
410 
ZO 
4:30) 
44) 
430) 
460 
47O 


4820 


REN JOTIO 


£ E 1 100 
Os) 


PRINT"] 


ón UNA . P AA 
PRIMTEL , 


> RINT"PRUEBA. CON. PAL 
STRE (IG UL LETRAS." 
LETOT=0 

LET O S=0 

LET OK$=A$ 

FOR P=1 TO L 

GOSUB 2600 

DT VPO PG 

NEXT OP 

LETOX=Q1iLET Y=8:GOSUB 1 
PRINTS 
GOSUB 1700:50SUB 2200. 
TF LENCRK$)<L THEN GOTO 
LET OT=T+1 

LETOX=DiLET Y=10:60SUE 
PRINT"."¿K8 
LETOX=(0MLET 
BOSUB 1700 
IF OKk$=4% THEN GOTO 460 
FOR P=1 TO L 
GOSUB 2600 
FOR N=1 TO L 
TE PELA UN 
LET S=59+1 

LET VS (Ne 
LET ON=L 

NEXT ON 

NEXT P 
PRINT"TIENES. "gSTRE(S) 5 
PRINT+¿PRINT:PRINT 

GOTO 200 


Y=12 


THEN G60TO 


RA.SECRETA. 


A RAS e 


ABD) 


260 


1700 


410 


PUNTOS" 


GOSUB 12007 PRINT"CORRECTO.* 


PRIMTIPRINTUHIGISTE. SURCOS 


PRUEBAS. 
STOP 


El Rompecabezas 14-15 de Sam 
Loyd era el Cubo de Rubik de los 
años 1870, Era un cuadrado de 
4x4 con números del 1 al 15. Se 
vendía al público con la casilla 
vacía en la esquina inferior dere- 
cha. Las casillas del 1 al 13 esta- 
ban en orden, pero los números 
14 y 15 estaban invertidos, La 
finalidad de este juego consistía 
en ir moviendo las casillas hasta 
conseguir el orden correcto con 
la casilla vacía en su posición 
inicial. Loyd ofreció una canti- 
dad enorme de dinero al primero 
que encontrara una solución. 
Volvió locos a todos con un jue- 
go que resultó ser matemática- 
mente imposible de resolver. 

Esta es una versión del juego 
de Sam Loyd, pero se utilizan 
letras en vez de números. La 
finalidad del juego consiste en 
colocar las letras en orden alfa- 
bético de izquierda a derecha, 
empezando por arriba, en el me- 
nor número de jugadas posibles, 
Y no te preocupes, el ordenador 
está programado para que te dé 
sólo problemas que se pueden 
resolver, Para mover una letra a 
un espacio, utiliza las teclas 1 
(izquierda), D (derecha), A (arri- 
ba), y B (abajo). 


Línea 110: Define el área del 
texto, 


Línea 120: Determina la dimen- 
sión del cuadrado; aquí, 4x4, 


Líneas 130-190: Definen las di- 
mensiones V$ y WS$ cada una 
con 15 letras del abecedario y 
luego un blanco. 


Líneas 200-250: Colocan las 15 


letras en WS en orden aleatorio. 


Línea 260: Llama a una subruti- 
na (líneas 450 a 540) que impri- 
me los elementos de WS$ en el 
cuadrado de 4x4, La variable P 
almacena la posición de la casilla 
vacía. 


Línea 270: Introduce S para el 
número de jugadas necesarias. 


* Para el Spectrum cambia la línea 
3000 a DIM$(60):RETURN 


Línea 280: Introduce M para re- 
gistrar los movimientos de la 
casilla vacía en la dimensión WS. 


Línea 290: Almacena el movi- 
miento del jugador en G$, 


Líneas 300-370: Continúa mo- 
viendo las letras. Las líneas 240- 
350 cambian la casilla vacía por 
una letra. 


Líneas 380-440: Comparan las 
letras de WS con las de VS e 
imprimen el número de jugadas 
si se ha resuelto el problema, y 
luego detiene el programa. 


Líneas 450-540: Subrutina; intro- 
duce las letras en el cuadrado. 
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PLOXO—Qe1 


PROG THEN L 
P/OL3 INT CP 


VARIACIONES 


Si quieres cambiar el tamaño del 
cuadrado a 3x3 o 5x5 altera el 
valor de Q en la línea 120 a 3 o 
a 5, 

Si añades las líneas siguientes 
al programa, el ordenador te in- 
ZO E El A 3 To A STEP OR dicará cuál ha sido tu puntuación 
ed E dE Ah TO WBRA STEP OZ máxima después de una serie de 
480 GOSUE 170 : 

90 PRINT VEND cid 
FO US (NS 04 THEN OLETOP=N 
Toei 


ear TEHERALET 


125 LET B=10000 
440 TF S<B THEN LET B=S 
441 PRINT "LA, MEJOR. PUNTUACION. =.";B; 


442 PAINT "GUIERES. JUGAR OTRA. VEZ- 


S 
443 GosuB 1500 
444 IF G4="N" THEN STOP 
445 IF 6405" THEN 50TO 443 
445 GOSUB 1200 
447 GOTO 150 


noi 171 - 1. a Le 28 E a 
SA MR bro 
nanáada a! ami aa 


Si quieres convencerte de que 
algunas versiones de este juego 
son imposibles de resolver, susti- 

ea tuye Q—1 en la línea 200 por Q. 


Esta es una variante de un juego 
de palabras muy conocido. En 
esta versión el ordenador y el 
jugador van eligiendo letras por 
turno, aunque el jugador decide 
dónde se va a colocar cada letra 
en un tablero de 5x 5. El juego 
consiste en rellenar el diagrama 
con tantas palabras como sea 
posible en horizontal y en verti- 
cal y alcanzar la máxima puntua- 
ción. 

Se eligen las letras y se intro- 
ducen en el tablero tecleando 
primero el número de líneas y 
luego el número de la columna. 
El jugador puede poner una letra 
por encima de otra anterior, pe- 
ro, si hace esto más de una vez, 
le quedará algún espacio libre al 
final del juego. 

Cuando todos los espacios es- 
tán cubiertos, se calculan los 
puntos, 


Palabras de 3 letras: 3 puntos 
Palabras de 4 letras: 5 puntos 
Palabras de 5 letras: 10 puntos 


Sólo vale una palabra por cada 
línea o columna, aunque alguna 
palabra se pueda descomponer 
en otra más corta. Por lo tanto la 
puntuación máxima que se pue- 
de conseguir es 100 y una pun- 
tuación de más de 50 se conside- 
ra excelente, 


100 
110 


1100 


240) 
230 
2600 
ESTAR) 
280) 
90 
SL 
310 


E 


SOSUB 410 
LEY R=UTLET 


SOS) 
GOSUE 
NEXT T 
FOR C=1 
SOSUE 


2200 
210 


A A A e A 

LO DOSUE 100 

ARO PRENSA bs a 
DIOR NS OS 

LED PRTNTE 

¿70 PRINTS TRE CN 

180 NEXTON 

190 LET N=246 

200 OR F=13 10 1 STEP =1 
210 COSUR 1300 

220 GOSUB 2500:LET k$=R9 
230 LET X=0Q0:LEÉT Y=12:G60SUB 1700 


PRENSA LETRAS IB a 


Y=12:3G605UB 


PRENPUCIHAL. ES. TUSLETRAS,. Us 


1700 


dl 


Línea 110: Define el área del 
texto. 


Líneas 120-180: Imprimen el ta- 
blero con números de líneas y 
columnas en la pantalla. 


Líneas 200-230: Definen un bu- 
cle, que se ejecuta 13 veces, en el 
cual se rellena el diagrama con 
letras. 


Línea 210: Elige un número alea- 
torio R. 


Línea 240: Imprime un mensaje 
con la letra elegida por el orde- 
nador, 


Línea 250: Llama a una subruti- 
na (líneas 410-520), que pide al 


jugador que introduzca la línea y 
la columna de la posición que ha 
elegido para KS. 


Líneas 270-290: Piden que el ju- 
gador introduzca una letra elegi- 
da y luego vuelve a llamar a la 
rutina 410. 


Líneas 310-380: Ayudan al juga- 
dor a calcular la puntuación del 
juego. 


Líneas 390-400: Imprimen la 
puntuación obtenida y terminan 
el juego. 


Líneas 410-520: Forman una su- 
brutina que pide al jugador que 
introduzca las instrucciones de 
línea y columna. Luego impri- 
men la letra en la posición co- 
rrecta, borran los mensajes y 
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E 


MAGIA 
PARA 


PRINTUTIER 
DO STOP 
E 


Ed 


vuelven a posicionar el cursor | que cuántos puntos has conse- 
para que se pueda elegir otra | guido, y cuál es tu máxima pun- 
letra, tuación. Si no estás seguro de 
cómo hacerlo, mira el programa 
CUADRADOS. Pero ¡ojo!, en CUA- 
ÑN > 1 | DRADOS la mejor puntuación es 
Si quieres conseguir una puntua- | justamente la más baja. 
ción mayor, cambia el valor ini- 
cial de T en la línea 200 del 
listado a 14 o 15. Cuanto mayor 
sea el valor de T, más posibilida- 
des tendrás de sustituir las letras 
inútiles con otras que te sirvan 
para formar palabras. 
Al principio puede ser conve- 
niente impedir que el ordenador 
elija letras difíciles de colocar, 
como pueden ser K y X, Para 
esto deberás añadir al listado: 


225 IF R=i0 OR R=17 THEN GOTO 210 


Si vas a jugar varias veces 
añade una subrutina que te indi- 


RESPUESTAS — + “Ms | 


El torreón 

Las combinaciones de números 
que permiten ganar a la princesa 
son: 

Princesa 1; Monstruo 4 
Princesa 2; Monstruo 2, 5, 8 
Princesa 3; Monstruo 1, 5, 8 
Princesa 4; Monstruo 4 
Princesa 5; Monstruo 1, 5, 6, 8 
Princesa 6; Monstruo 2, 6, 9 
Princesa 7; Monstruo 7 
Princesa 8; Monstruo 1, 5, 9 
Princesa 9; Monstruo 1 


19 


Problemas de cuentas 

Respuesta de Basilio: 1681 
Respuesta de Carmen: 9376, y el 
cuadrado es 87.909.376 
Respuesta de Darío: 54 años (él) 
y 45 (su mujer). 

Respuesta de Ernesto: 168 co- 
rrectas y 132 incorrectas. 


Números primos 
1) 25 que incluyen el número 2. 


2) Para  100-200:21 números 
primos, 
Para 300-400: 16 números 
primos, 


La cantidad de números pri- 
mos disminuye cuanto mayo- 
res sean los números. 

3) La diferencia común es 210. 
Los números son: 199, 409, 
619, 829, 1039, 1249, 1459, 
1669, 1879, 2089, 

4) 1983 —no es primo. 

1979 —último año primo, 
1987 —próximo año primo. 

5) 1327-1361; el período más lar- 
go es 34 años. 

6) 2, 3, 4,7, 11, 101, 131, 151, 
181, 191, 313, 353, 383 son los 
palíndromos más pequeños. 

7) El número primo más grande 
debajo de un millón es 
999,983. 


Palíndromos 
Ana descubrió que los palíndro- 
mos cuadrados más pequeños cu- 
yas raíces cuadradas no son pa- 
líndromos son: 
676 (=262) 

69696 (=264?) 

94249 (=3072) 
El palíndromo cuadrado con un 
número par de dígitos es: 

698896 (=836?) 


Crucigramas de números 

1) Edad: 73; año de nacimiento, 
1907. 

2) El número de trozos de 
guirlache es 63 (3969 es su 
cuadrado) o 87 (7569 es su 
cuadrado). 

3) El. número original de 
empleados era 30. El actual, 
960. 


Víspera de San Juan 

Hay cuatro valores que cumplen 
los requisitos pedidos, pero susti- 
tuyendo los números por letras 
en el resultado, sólo el último 
tiene sentido en inglés: EVE, vís- 
pera. El nombre del juego era 
una clave, 


“TWELVE?” RAIZ 
CUADRADA 
256.036 506= wle 
361.201 601 =WVE 
439,569 663= VVW 
456.976  676=EVE 


Por tanto, la raíz cuadrada de 
TWELVE es EVE. 


Cuadros mágicos 


16 2 3 13 
> 11 10 $ 
9 761 
4 14 15 1 


Conversión 
La dueña de la pensión mide 2 
m. 

Las pulgas saltan 20 cm. 

El cordón mide 12 mm de 
grosor. 


Frenos eficaces 

Habrás recorrido 16 m mientras 
piensas en frenar, y otros 39 m 
mientras frenas. En total 55 m. 


Intereses 

Tardarías 112 años en reunir 50 
millones al 8 por 100, Con el 
segundo negocio, te devolverían 
43 millones al cabo de 25 años, y 
204 con el tercero. 


Luna 

Eclipses de luna: 1, 3, 6, 8, 9, 10, 

13, 14, 17, 20, 21, 22, 24 y 26. 
Los demás son eclipses de Sol, 


